|
下のような表があります。
test2を実行すると→A列の文字の数12個を算出できます
~~~~~~~~~~
test1のSubtotal(B列の合計)を実行後に、test2を実行すると13を算出します。
~~~~~~~~~~~~~~
何が災いしているのでしょうか。
兎に角B18に数字が入っているtest2がA5:A17のカウントをします。
~~~~~~~~~~~~~~~~~~~~~~~
test1とtest2のSubtotalを支障なく実行したいのですが、その方法を教えてください。
A B
1
:
5 項目1 項目2
6 111 111
7 112 112
8 113 113
9 114 114
10 115 115
11 116 116
12 117 116
13 118 118
14 119 119
15 120 120
16 121 121
17 122 122
Sub test1() '合計はB列18で1397になります
Dim lon_Limirow As Range
Set lon_Limirow = Worksheets(1).Cells(65536, 2).End(xlUp)
lon_Limirow.Offset(1).FormulaR1C1 = "=SUBTOTAL(9,R[-" & lon_Limirow.Row & "]C:R[-1]C)"
End Sub
Sub test2() ’数は12ですがtest1実行後は13になります
Dim 行 As Integer
Dim lastC As Range
On Error Resume Next
Sheets(1).Columns("A").SpecialCells(xlCellTypeFormulas, 23).ClearContents
On Error GoTo 0
Set lastC = Range("A65536").End(xlUp)
行 = Range("A5").CurrentRegion.Rows.Count
lastC.Offset(1).FormulaR1C1 = "=SUBTOTAL(3,R[-" & (行 - 1) & "]C:R[-1]C)"
End Sub
|
|