![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされてしまいます。最終列+1をどの段階で記入したらよいか教えてください。
Sub test1()
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
![「最終列の右へSUM関数を作成するため下記」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/1/543097098_638dd6b76a42b/M.jpg)
No.3
- 回答日時:
>どの段階で記入したらよいか教えてください。
以下のコードで
>XCol = Cells(3, ColE - 1)
>NCol = Cells(2, ColE).Address
とされているのでColE取得時で良いと思いますが
コード内コメントの内容と添付図が少し違うので・・・なんとも
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
最終行に合計(最終行が列によって異なる場合)
Excel(エクセル)
-
エクセルマクロ オートSUM(合計)式の挿入
Excel(エクセル)
-
-
4
マクロ 最終列をコピーして最終列の次の列に挿入する
Visual Basic(VBA)
-
5
B列の最終行までA列をオートフィル
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
B列の最終行までA列をオート...
-
VBAを使って検索したセルをコピ...
-
マクロ 最終列をコピーして最終...
-
IIF関数の使い方
-
rowsとcolsの意味
-
マクロについて。S列の途中から...
-
VBAのFind関数で結合セルを検索...
-
文字列の結合を空白行まで実行
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
VBマクロ 色の付いたセルを...
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
VBAで、特定の文字より後を削除...
-
VBA指定行削除
-
【VBA】2つのシートの値を比較...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBA指定行削除
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
エクセルについて
-
【VBA】2つのシートの値を比較...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
空白セルをとばして転記
-
rowsとcolsの意味
-
エクセルVBAにて =A1=B1とすれ...
おすすめ情報