Question

我已将单元格设置为变量，然后在变量中存储了单元格地址：

Dim sumOfLevel As String
sumOfLevel = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(, 5).Address

我现在想要填充单元格，似乎无法使其工作。我尝试了很多技术，例如：

sumOfLevel.Value = "getting there"

Answer 1

有两种方法可以解决您的问题。

方式1

Dim sumOfLevel As String

sumOfLevel = ActiveSheet.Range("E" & _
             ActiveSheet.Rows.Count).End(xlUp).Offset(, 5).Address

With ActiveSheet.Range(sumOfLevel)
    '~~> Do Something
    .Value = "getting there"
End With

方式2

Dim sumOfLevel As Range

Set sumOfLevel = ActiveSheet.Range("E" & _
                 ActiveSheet.Rows.Count).End(xlUp).Offset(, 5)

With sumOfLevel 
    '~~> Do Something
    .Value = "getting there"
End With

Answer 2

我弄清楚原因，这是一个非常简单的解决方案。如果要保存对象的引用，则必须使用设置。

下面的解决方案

Dim sumOfLevel As Range
Set sumOfLevel = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(, 5)
sumOfLevel.Value = "getting there"

将单元格分配给变量

2 个答案: