Jak vybrat sloupec na základě záhlaví sloupce v aplikaci Excel?
Předpokládejme, že máte velký list, který obsahuje více sloupců, a nyní byste chtěli vybrat konkrétní sloupec na základě názvu záhlaví sloupce. Chcete-li najít sloupec po sloupci ve velkém listu, ztratíte mnoho času, v tomto článku představím rychlou metodu řešení této úlohy v aplikaci Excel.
Vyberte sloupec na základě názvu záhlaví sloupce s kódem VBA
Vyberte sloupec na základě názvu záhlaví sloupce s kódem VBA
Následující kód VBA vám pomůže vybrat sloupce na základě konkrétního názvu záhlaví, udělejte to takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Vyberte sloupec na základě názvu záhlaví sloupce:
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
Poznámka: Ve výše uvedeném kódu, A1: P1 je rozsah záhlaví, ze kterých chcete vybrat sloupce, a „Příjmení“Ve scénáři xStr = "Jméno" je název záhlaví, podle kterého chcete vybrat sloupce. Změňte je prosím podle svých potřeb.
3. Po zkopírování a vložení kódu stiskněte F5 klíč ke spuštění tohoto kódu a všechny sloupce se specifickým názvem záhlaví byly vybrány najednou, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
