将单元格值存储在变量中

Question

我试图使用vba将单元格的值存储在变量中。我的代码抛出一个错误，我该怎么改变，以便单元格的值存储在我的变量中？

Dim total As Long
total = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).End.Value
Debug.Print (total)

我得到的错误是

  

错误的参数数量或分配的无效属性

Answer 1

Dim total As Long
Dim wk as worksheet

Set wk = activesheet

total = wk.Range("D" & wk.Cells(wk.Rows.Count, "D").End(xlUp).Row).value
Debug.Print (total)