[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『最終列の右列へSUM関数を作成したい』(師走)
最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列が上書きされてしまいます。最終列+1をどの段階で記入したらよいか教えてください。
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(月) 21:51:40
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.