VBA計算行數和返回值到文件

Question

我想使用vba計算excel文件中的行數，並將該數字不在MsgBox中，而是在腳本最初計算的最後一行之後的行中返回。因此，對於實例。檢測到20行返回21行21列A.我是新來的excel vba，並發現很多鏈接返回到MSGBox計數器，我只是想將相同的數字返回到它正在計算的同一個文件

Answer 1

爲何不像

Dim i as Variant 
i = 1 
while Cells(i,1)<>"" 
    i=i+1 
Wend 
Cells(i,1) = i 

（假設A列中總會有數據並在第一時間找到一個空白，它會假設它是最後一行）

如果假設不成立：

您還可以檢測到最後一行包含數據w ith

Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row 

Answer 2

您真的需要VBA來完成手工操作嗎？
此外，爲什麼不把總數放在列的頂部，放棄標題，不必移動它們，以及在任何時候都可以保持可見的地方，只要你凍結前2行？
無論如何，這裏有一個解決方案：

With Cells(ActiveSheet.Rows.Count, 1).End(xlUp) 
    .Formula = "=Row()-1" 'assuming you have 1 row of title 
End With