Excel VBA : Setting a Cell Address to a variable "Object Required Error"

Question

我想将单元格地址设置为变量。然后使用该变量设置具有可引用单元格的单元格公式rng即有人应该能够双击带有公式的单元格并查看 rng 的单元格引用而不是单元格的值rng在公式。我有以下代码:

Dim rng As Range
Dim j As integer 
j = 5
Set rng = ActiveSheet.Cells(j, 1).Address(False, False) ' get error here

ActiveSheet.Cells(1, 15).Formula = "=5*" & rng  

我得到这个“需要对象的错误”。我究竟做错了什么？

Answer 1

或者，如果您需要 rng对于其他任何事情，您可以执行以下操作

Dim rng As Range
Dim j As integer 
j = 5
Set rng = ActiveSheet.Cells(j, 1)

ActiveSheet.Cells(1, 15).Formula = "=5*" & rng.address