Ana içeriğe atla

Excel'deki her n'inci sütun nasıl seçilir?

Örneğin, yüzlerce veri sütunu içeren büyük bir çalışma sayfanız var. Ve şimdi, her 3. sütun verisini kopyalayıp başka bir yeni çalışma sayfasına yapıştırmanız gerekiyor. Her n'inci sütunu tek tek seçmek zaman alıcı olacaktır ve bunu yapmanın kolay bir yolu var mı?

VBA ile her n'inci sütunu seçin

Kutools for Excel ile her nth sütunu seçin


ok mavi sağ balon VBA ile her n'inci sütunu seçin

Bu sorunu çözmek için VBA kodu dışında basit bir yol görünmüyor. Lütfen aşağıdaki adımları uygulayın:

1. Her n'inci sütunu seçmek istediğiniz aralığı vurgulayın.

2.Click Geliştirici > Visual Basic basın veya Alt + F11, Yeni bir Uygulamalar için Microsoft Visual Basic pencere görüntülenecek, tıklayın Ekle > modül Modüle aşağıdaki kodu girmek için:

 

Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
    Set rng = InputRng.Cells(1, i)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireColumn.Select
End Sub

3. Sonra tıklayın  kodu çalıştırmak için düğmeye basın ve üzerinde çalışacağınız bir aralık seçmenizi hatırlatan bir komut kutusu açılır. Ekran görüntüsüne bakın:

 

4. tık OKve ardından başka bir açılır iletişim kutusuna aralık sayısını girin. Bu durumda kutuya 3 girin. Ekran görüntüsüne bakın:

5. tık OK. Şimdi seçimdeki her 3. sütunu seçer. Ekran görüntüsüne bakın:

not: Numarayı saniyede belirtebilirsiniz. KutoolsforExcel ihtiyacınızı karşılamak için iletişim kutusu.

Ancak bazen, iki aralıklı iki sütun seçmeniz gerekir. Yukarıdaki kod çalışmıyor, nasıl yapmalısınız?


Kutools for Excel ile her nth sütunu seçin

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Şimdi sahip ol.

İle Kutools for Excel, belirli aralıklarla belirli sayıda sütun seçebilirsiniz. Lütfen aşağıdaki adımları uygulayın:

1.Click Kutools > Araçlar'ı seçin > Aralık Satırları / Sütunları Seçin, ekran görüntüsüne bakın:

2. Aralık Satırları / Sütunları Seçin iletişim kutusu görünecektir. Sonra tıklayın İhtiyacınız olan aralığı seçmek için düğmeye basın Sütunlar itibaren Bölüm seçinve istediğiniz numarayı belirtin. Aralığı ve Sütunlar açılır liste, burada her 3td sütununda iki sütun seçiyoruz. Ekran görüntüsüne bakın:

3.Click OK. Seçimde iki aralıklı iki sütun seçecektir. Ekran görüntüsüne bakın:

not: Kontrol ederseniz Tüm sütunları seçin açılır pencerede, sayfadaki tüm sütunları seçecektir. Ekran görüntüsüne bakın:


İlgili makaleler:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have one issue in excel, for example, in a row first five sells are numbered as 1,2,3, 4,5. in the second row also numbered as 1,2,3,4,5 in each sell. then to the third row need to paste the values of above two rows alternatively. means i need answer in each sells in third row 1,1,2,2,3,3,4,4,5,5. how can I do easily in excel? I am waiting for your response because I need to complete big datasheet.
This comment was minimized by the moderator on the site
i need to copy from f18 to h19, then f21 to h22, and it goes on till 500 values and before the value in h column need to add text also

like f18 = 345

in h19 I should get = tdg 345

for 500 values in h column.

please help me someone
This comment was minimized by the moderator on the site
This macro sucks dont waste your time
This comment was minimized by the moderator on the site
For some reason this does not work if only one row is selected.
This comment was minimized by the moderator on the site
Excel 2010 - Select interval column command does not work. There is no any raction after clicking - ok
This comment was minimized by the moderator on the site
I always get an error: invalid procedure... How can I solve it. I want to select every 4th column in my dataset
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations