Получение ссылки на ячейку через VBA

Question

В моей электронной таблице Excel я хочу вставить ссылку на ячейку из Ячейка A1 в Ячейка B1 через VBA.
В конце концов, электронная таблица должна выглядеть так:

     A       B
1           A1
2
3
4

Ячейка B1 заполняется запуском VBA, который получает ссылку на ячейку от Ячейка A1 .
Я попробовал следующий VBA, но не смог заставить его работать (ошибка выполнения 1001):

Sub test()
Sheet1.Range("B1").Value = Sheet1.Range(Sheet1.Range("A1").Value)
End Sub

Что мне нужно изменить в моей VBA, чтобы решить мою проблему?

Answer 1

Чтобы получить полный адрес ячейки A1 в ячейку B1, вы можете использовать функцию:

Sub AdressCell ()
Sheet1.Range("B1").Value = Sheet1.Range("A1").Address
End Sub

Чтобы избавиться от абсолютных ссылок, вы можете использовать:

Sub AdressCell ()
Sheet1.Range("B1").Value = Sheet1.Range("A1").Address(False, False)
End Sub

Для получения только колонки вы можете использовать:

Sub AdressColumn ()
Sheet1.Range("B1").Value = Sheet1.Range("A1").Column
End Sub

Для получения только строк вы можете использовать:

Sub AdressRow ()
Sheet1.Range("B1").Value = Sheet1.Range("A1").Row
End Sub