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

Pozor: 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: