在變量中存儲單元格值

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)