Jak wybrać kolumnę na podstawie nagłówka kolumny w programie Excel?
Przypuśćmy, że masz duży arkusz roboczy zawierający wiele kolumn, a teraz chciałbyś wybrać określoną kolumnę na podstawie nazwy nagłówka kolumny. Aby znaleźć kolumnę po kolumnie w dużym arkuszu, zmarnuje dużo czasu, w tym artykule przedstawię szybką metodę rozwiązania tego zadania w programie Excel.
Wybierz kolumnę na podstawie nazwy nagłówka kolumny z kodem VBA
Wybierz kolumnę na podstawie nazwy nagłówka kolumny z kodem VBA
Poniższy kod VBA może pomóc w wyborze kolumn na podstawie określonej nazwy nagłówka, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Wybierz kolumnę na podstawie nazwy nagłówka kolumny:
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: W powyższym kodzie, A1: P1 to zakres nagłówków, z których chcesz wybrać kolumny, a „Imię”W scenariuszu xStr = "Imię" to nazwa nagłówka, na podstawie którego chcesz wybrać kolumny. Zmień je według swoich potrzeb.
3. Po skopiowaniu i wklejeniu kodu naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie kolumny o określonej nazwie nagłówka zostały wybrane jednocześnie, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!