璁＄畻琛屾暟鐨勬柟娉曟湁涓ょ锛?/p>

1. 浣跨敤Excel鍐呯疆鍑芥暟锛氬湪Excel涓紝鍙互浣跨敤鍑芥暟ROW鏉ヨ绠楄鏁般€備緥濡傦紝瑕佽绠椾竴涓暟鎹〃鏍间腑鏈夊灏戣锛屽彲浠ュ湪涓€涓崟鍏冩牸涓緭鍏?code>=ROW(A1)锛岀劧鍚庢嫋鍔ㄥ～鍏呰鍏紡鑷虫暟鎹〃鏍肩殑鏈€鍚庝竴琛屻€傝鍏紡灏嗕細鏄剧ず姣忎竴琛岀殑琛屽彿銆傜劧鍚庯紝鍙互鍦ㄦ渶鍚庝竴琛岀殑涓嬫柟鍐嶅鍔犱竴琛岋紝浣跨敤=MAX(A:A)鏉ヨ绠楁渶澶ц鍙凤紝鍗虫暟鎹〃鏍肩殑琛屾暟銆?/p>

2. 浣跨敤VBA瀹忥細鍦‥xcel涓紝鍙互浣跨敤VBA瀹忔潵璁＄畻琛屾暟銆傞鍏堬紝鎸変笅ALT + F11鎵撳紑VBA缂栬緫鍣ㄣ€傚湪VBA缂栬緫鍣ㄤ腑锛屾彃鍏ヤ竴涓柊鐨勬ā鍧楋紝鍦ㄦā鍧椾腑杈撳叆浠ヤ笅浠ｇ爜锛?/p>

Sub CountRows()
Dim rowCount As Long
rowCount = ActiveSheet.UsedRange.Rows.Count
MsgBox "Total Rows: " & rowCount
End Sub

鐒跺悗锛屾寜涓?code>F5杩愯璇ュ畯锛屽皢浼氬脊鍑轰竴涓秷鎭锛屾樉绀烘暟鎹〃鏍肩殑琛屾暟銆?/p>

鏃犺鏄娇鐢ㄥ嚱鏁拌繕鏄疺BA瀹忥紝閮藉彲浠ユ柟渚垮湴璁＄畻Excel涓殑琛屾暟銆?/p>