在VBA中将列函数中的变量用作参数

Question

我基本上是想在Excel工作表中搜索一个值，然后选择存在的整个列。

Sub Test()


Dim address As String
Dim extract As String


Rows("1:1").Select
address = Selection.Find(What:="Date").address
extract = Mid(address, 2, 2)                          'extract value= Say AA

''我想选择整个列并更改其格式

Columns("AA:AA").Select
    Selection.NumberFormat = "yyyy-mm-dd;@"


   End Sub

有没有办法做类似Columns(extract:extract).Select的事情

提前感谢您的时间...：）

Answer 1

u可以在一行代码中完成所有操作；）

Rows("1:1").Find(What:="Date").entirecolumn.numberformat = "yyyy-mm-dd;@"