excel如何使用VBA提取列的值呢？

Question

你好！我需要将第一行为单元格值为列3竖行的值提取出来放在J栏该如何编写呢？

Answer 1

Sub test()
    Dim rng As Range
    Dim j As Integer
    Set rng = Range("a1:g1").Find("列3")
    j = rng.Column
    Range(Cells(2, j), Cells(5, j)).Copy Range("j2:j5")
End Sub