将单元格值存储在变量中

Question

我正在尝试使用 vba 将单元格的值存储在变量中。我的代码抛出错误，我应该更改什么以便单元格的值存储在我的变量中？

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

我得到的错误是

Wrong number of arguments or invalid property assigned

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)

将单元格值存储在变量中

Store Cell Value In Variable

excel

vba

excel-2013