Excel VBA：将单元格地址设置为variables“Object Required Error”

我想设置一个单元格地址给一个variables。 然后使用该variables来设置单元格公式与一个可参考的单元格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 

Answer 2

好的，所以我相信我的问题是我误解了ActiveSheet.Cells(j, 1).Address(False, False)types。

ActiveSheet.Cells(j, 1).Address(False, False)是一个String ，所以如果将Range设置为String ，则会出现错误。 简单地将rng更改为一个String将解决我的问题：

解：

 Dim rng As String Dim j As integer j = 5 rng = ActiveSheet.Cells(j, 1).Address(False, False) ' works now ActiveSheet.Cells(1, 15).Formula = "=5*" & rng