[[20221205195949]]　『最終列の右列へSUM関数を作成したい』（師走）　ページの最後に飛ぶ

『最終列の右列へSUM関数を作成したい』（師走）

最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列が上書きされてしまいます。最終列＋１をどの段階で記入したらよいか教えてください。
Sub D7_最終列合計追加()

    Dim ColE, lrow As Long
    Dim LCol, XCol, NCol As String       
    ColE = Cells(2, Columns.Count).End(xlToLeft).Column '2行目の最終列を取得
    LCol = Cells(3, ColE).Address  '3行目の最終列のセル番号を取得（"I3"）
    XCol = Cells(3, ColE - 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)  'SUM関数で使う最終列-1のセル番号を取得（"H3"）
    lrow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を取得

    With Range(LCol)
        .Formula = "=SUM(C3:" & XCol & ")"   '最終行にSUM関数「C3～最終列」を代入
        .AutoFill Destination:=.Resize(10, 1) 'AutoFillを使い横列分複写する
    End With

    NCol = Cells(2, ColE).Address '2行目の最終行のセル番号を取得

    With Range(NCol)
        .Formula = "合　計"  'I列先頭行に”合計”を代入
        .HorizontalAlignment = xlCenter 'I列の先頭行合計”を中央揃え
    End With  
End Sub

＜使用 Excel：Office365、使用 OS：Windows10 ＞

ここまでのクレクレマンは他にいないんじゃあないでしょうか。
他の質問にもお礼すら言ってないし
（卯月） 2022/12/05(月) 20:34:40

1行1行の意味を落ち着いて考えれば済む話だと思う。
なまじ他人に聞くから混乱するんじゃないかな。
（感想） 2022/12/05(月) 20:41:41

ステップ実行して確認しないんですかね。
それが面倒くさいから出来立てがほしいの。
（HAZUKI） 2022/12/05(月) 20:47:13

ありがとうございます。自己解決しました。
ColE = Cells(2, Columns.Count).End(xlToLeft).Column + 1

（クレクレマン） 2022/12/05(月) 21:51:40

コメント返信：

[ 一覧(最新更新順) ]

[[20221205195949]] 『最終列の右列へSUM関数を作成したい』（師走） ページの最後に飛ぶ

[[20221205195949]]　『最終列の右列へSUM関数を作成したい』（師走）　ページの最後に飛ぶ