Dim ws1 As Worksheet, ws2 As Worksheet
Dim x As Range
Dim valX, valY
Set ws1 = Sheets("Sheet")
valX=ws1.Range("a1").Value
Set x = ws2.Range("a1:J1").Find(What:=valX,LookIn:=xlValues,lookat:=xlWhole)
上面的代码可以帮助我找到新工作表中的标题,但是我对将列选择为Range无能为力。
答案 0 :(得分:0)
这应该选择列,但是,请记住select在VBA中不是一个好习惯 - 免责声明:在大多数情况下 -
ws2.Select
Columns(x.column).Select