使用VBA在Excel中选择大型数据库中的特定列

Question

I have an excel file, starting from A to GM . In row 3, I have columns headings, as an example, as follows:

 Sub bar Sub Sim bar Sub IV bar 1 1 0 1 1 0 0 4 1 1 1 0 0 1 1 0 0 1 0 1 1 1 0 1 0 1 0 1 3 0 0 0 0 1 1 0 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 1 1 0 1 1 1 0 0 1 1 1 0 1 1 1 1 1 1 0 0 1 1 0 0 1 0 1 0 1 1 4 0 0 1 1 0 0 

I have several column heading ( sub, bar, sim,...) I want to select the columns with a specific heading column, say "bar" and see them in sheet 2 as follows:

 bar bar bar 1 1 4 1 0 0 1 1 1 1 3 0 1 1 1 0 0 1 0 1 1 0 1 1 1 1 1 0 0 1 4 1 0 

I know how to do it using vlookup and filter. However, I want to do using a simple VBA, if it is possible. Is it possible?

Answer 1

you could try this:

Sub main()
    Worksheets("Sheet1").Range("A3").CurrentRegion.Copy Destination:=Worksheets("Sheet2").Range("A3") 'copy data from sheet1 to sheet2

    With Worksheets("Sheet2").Range("A3:GM3") 'reference sheet2 headings
        .Replace what:="bar", lookat:=xlWhole, replacement:="" ' replace wanted heading with blank
        .SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True ' hide blank headings columns
        .SpecialCells(xlCellTypeVisible).EntireColumn.Delete ' delete visible heading columns
        .EntireColumn.Hidden = False ' unhide hidden columns
        .Value = "bar" 'write wanted heading back
    End With
End Sub

just change "Sheet1" and "Sheet2" to your actual sheet names