Bagaimana cara memilih kolom berdasarkan header kolom di Excel?
Misalkan, Anda memiliki lembar kerja besar yang berisi banyak kolom, dan sekarang, Anda ingin memilih kolom tertentu berdasarkan nama tajuk kolom. Untuk menemukan kolom demi kolom di lembar kerja besar akan membuang banyak waktu, artikel ini, saya akan memperkenalkan metode cepat untuk menyelesaikan pekerjaan ini di Excel.
Pilih kolom berdasarkan nama header kolom dengan kode VBA
Pilih kolom berdasarkan nama header kolom dengan kode VBA
Kode VBA berikut dapat membantu Anda memilih kolom berdasarkan nama header tertentu, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Pilih kolom berdasarkan nama header kolom:
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
Note: Pada kode di atas, A1: P1 adalah rentang tajuk yang kolomnya ingin Anda pilih, dan "Nama"Di skrip xStr = "Nama" adalah nama header yang ingin Anda pilih berdasarkan kolom. Harap ubah sesuai kebutuhan Anda.
3. Setelah menyalin dan menempel kode, silakan tekan F5 kunci untuk menjalankan kode ini, dan semua kolom dengan nama tajuk tertentu telah dipilih sekaligus, lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!