通过VBA获取单元格参考

Question

在我的Excel电子表格中，我想通过VBA将单元格A1 中的单元格引用插入到单元格B1 中。
最后，电子表格应如下所示：

     A       B
1           A1
2
3
4

通过运行VBA来填充

单元格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