Excel'deki sütun başlığına dayalı bir sütun nasıl seçilir?
Diyelim ki, birden çok sütun içeren büyük bir çalışma sayfanız var ve şimdi, bir sütun başlığı adına göre belirli bir sütunu seçmek istiyorsunuz. Büyük bir çalışma sayfasında sütunu sütun bulmak çok zaman kaybedecektir, bu yazıda Excel'de bu işi çözmek için hızlı bir yöntem sunacağım.
VBA kodu ile sütun başlığı adına göre bir sütun seçin
VBA kodu ile sütun başlığı adına göre bir sütun seçin
Aşağıdaki VBA kodu, belirli bir başlık adına göre sütunları seçmenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Sütun başlığı adına göre sütun seçin:
Sub FindAddressColumn()
'Updateby Extendoffcie
Dim xRg As Range
Dim xRgUni As Range
Dim xFirstAddress As String
Dim xStr As String
On Error Resume Next
xStr = "Name"
Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
If Not xRg Is Nothing Then
xFirstAddress = xRg.Address
Do
Set xRg = Range("A1:P1").FindNext(xRg)
If xRgUni Is Nothing Then
Set xRgUni = xRg
Else
Set xRgUni = Application.Union(xRgUni, xRg)
End If
Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
End If
xRgUni.EntireColumn.Select
End Sub
not: Yukarıdaki kodda, A1: P1 sütun seçmek istediğiniz üstbilgi aralığıdır ve "Name"Senaryoda xStr = "Ad" sütunları temel alarak seçmek istediğiniz başlık adıdır. Lütfen bunları ihtiyacınıza göre değiştirin.
3. Kodu kopyalayıp yapıştırdıktan sonra lütfen F5 Bu kodu çalıştırmak için anahtar ve belirli bir başlık adına sahip tüm sütunlar aynı anda seçildi, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
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...
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!