2013-03-13 87 views
1

是否存在一個公式或方法來保持行的精確數量(即始終爲100行)並在所述行內計數 - 無論是插入還是刪除?我試過絕對引用,但插入和刪除會影響它。計數確切範圍

我現在唯一的方法是在所有插入和刪除操作完成後重寫公式。

Sub ExactRowsCount() 
' 
' ExactRowsCount Macro 
' 
Range("H1").Select 
ActiveCell.FormulaR1C1 = "=COUNTA(R[4]C:R[104]C)" 
Range("H2").Select 

End Sub 
+1

你的意思是總是在相同的行數的'COUNTA'功能計數無論是插入還是刪除行/單元格? – ikh 2013-03-13 17:52:38

+0

是的,這就是我的意思。 – Deafdan 2013-03-13 18:04:04

回答

3

我會用OFFSET

=COUNTA(OFFSET(A1,4,0,100,1)) 

哪裏A1是您希望計數最終結束的單元格。如果您希望列高度依賴於另一個單元格,此公式可能特別方便;例如,如果你想保留而是採用了固定數量的100單元格A2中柱高度,你可以這樣做:

=COUNTA(OFFSET(H1, 4, 0, A2, 1)) 
+1

這比我的好。 +1 – 2013-03-13 18:20:00

2

這將返回非空白單元格的計數A2無論對A101插入和刪除:

=COUNTA(INDIRECT("A2:A101")) 
+0

簡單的答案,但我用ikh的答案,因爲它更可定製。謝謝! – Deafdan 2013-03-13 19:13:33