Использование переменных в столбце Function в 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

вы можете все это в одной строке кода;)

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