A列に項目が入力されていた場合のみ行の集計をする

Question

SUM関数を使用していましたが、項目の変動があり、また入力されている部分にのみ罫線を入れたいという要望があるため、集計をマクロにしたいです。
数値はA11セルから下に入力され、合計をC11セルに出力します。集計する値もD11～右へ変動します。

Sub 合計値入力()
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    
    Dim myLastCol As Long
    Dim myLastRow As Long

    'Ｃ列に合計
    myLastCol = Range("A11").End(xlToRight).Column '----最終列
    myLastRow = Range("C10").End(xlDown).Row '----最終行

    Cells(11, "C").Resize(myLastRow + 1).FormulaR1C1 = "=SUM(RC[1]:RC[" & myLastCol + 1 & "])"

End Sub

以前にこちらで質問があった文を自分用に変更したのですが、集計はされるものの、入力されていない部分も「０」になってしまいます。
If文やOffset、WorksheetFunction.Sumなどを使用すればいいと思ってはいますが、まだ理解が出来ておらず躓いております。
よろしくお願いします。

Answer 1

集計する値もD11～右へ変動します。

の意味するところが理解できていませんが、コードでやりたいことは、A11から下へ連続する行にだけ、C列に式を入れるってことですよね。

データ入力の有無をA列で判断してC列に式を入れたいならば、最終行を取得する基準はA列であるべきです。C列を基準にしても入力された数はわかりません。

また、Rowプロパティで得られるのは、そのセルの行番号です。変更後のセル範囲のサイズを指定するResizeメソッドへこの行番号を与えれば、データのある行数とは違いが出てしまいます。

データの無い行にも0が表示されるのは、式の結果が0であるためですので、余計なセルに式を入れなければ0の表示にもなりません。

ですので、式を入れるセル範囲の指定方法を変えるか、指定の方法を変えないならば'myLastRow'の値をデータのある行数となるよう調整する必要があります。

'A11セルを基準にデータの一番下の行番号を得る
myLastRow = Range("A11").End(xlDown).Row

'C11セルから同じ行までのセル範囲の指定
Range(Cells(11, "C"), Cells(myLastRow, "C"))
'A11セルからの行数を使った指定
Cells(11, "C").Resize(myLastRow - Range("A11").Row + 1, 1)

なお、Endプロパティは、基準としたセル以外に(指定した方向へ)データの入力がなければシートの最後になってしまうので、この使い方の場合、データがA11セルだけにしかない場合はエラーなどになるでしょう。

Comments

[lq_hm_165912]

Sub 合計値入力()
Dim Sh1 As Worksheet

Application.ScreenUpdating = False
Application.Calculation = xlManual

Set Sh1 = ThisWorkbook.Worksheets("お試し集計")
With Sh1
Dim myLastCol As Long
Dim myLastRow As Long

'Ｃ列に合計
'A11セルを基準にデータの一番下の行番号を得る
myLastRow = Range("A11").End(xlDown).Row

'A11セルからの行数を使った指定
Cells(11, "C").Resize(myLastRow - Range("A11").Row + 1, 1).FormulaR1C1 = "=SUM(RC[1]:RC[" & myLastCol + 10 & "])"

End With

End Sub

いただいた式を組み込んで思った通りの結果が得られました。
A11には確実に値が入るので大丈夫だと思います。
ありがとうございました！