ExcelVBAです。
商品名ごとに集計をしたいのですが、毎月その月の分が追加されるので
集計するフィールド（列）を指定出来ないため、最終列（小計）まで
自動取得してから集計を実行したいのですが、どのようにすれば良いでしょうか？
・集計する範囲を自動取得（B列から最終列まで）
・最終列＝小計の列
添付を例にすると、次月作成する時は「７月」分が小計列の前に入っています。
数か月先まで、毎月作成するため、列は指定せずに自動取得する方法を
教えていただけますでしょうか？
よろしくお願い致します。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
Mook
満足100pt
とりあえず、コメントした内容でのサンプルです。
Sub CalcSum() Dim lastRow As Long, lastCol As Long lastRow = Range("A" & Rows.Count).End(xlUp).Row lastCol = Range("IV1").End(xlToLeft).Column Dim i As Long, j As Long, cLine As Long, pLine As Long Dim lastTitle As String lastTitle = Range("A2").Value Cells(1, lastCol + 1).Value = "小計" cLine = 2 pLine = 2 Do While Cells(cLine, "A").Value <> "" '---- 行単位の小計の計算 Cells(cLine, lastCol + 1).Formula = "=SUM(" & Range(Cells(cLine, 2), Cells(cLine, lastCol)).Address & ")" '---- 列単位の小計の計算 If Cells(cLine, "A").Value <> lastTitle Then Rows(cLine - 1).Copy Rows(cLine).Insert Shift:=xlDown Application.CutCopyMode = False Cells(cLine, "A").Value = Cells(cLine, "A").Value & "小計" Range(Cells(cLine, 1), Cells(cLine, lastCol + 1)).Interior.ColorIndex = 20 For i = 2 To lastCol Cells(cLine, i).Formula = "=SUBTOTAL(9," & Range(Cells(pLine, i), Cells(cLine - 1, i)).Address & ")" Next Cells(cLine, lastCol + 1).Formula = "=SUBTOTAL(9," & Range(Cells(pLine, lastCol + 1), Cells(cLine - 1, lastCol + 1)).Address & ")" pLine = cLine + 1 cLine = cLine + 1 lastTitle = Cells(cLine, "A").Value End If cLine = cLine + 1 Loop '---- 総計の計算 Cells(cLine, "A").Value = Cells(cLine, "A").Value & "総計" For i = 2 To lastCol + 1 Cells(cLine, i).Formula = "=SUBTOTAL(9," & Range(Cells(2, i), Cells(cLine - 1, i)).Address & ")" Next Range(Cells(cLine, 1), Cells(cLine, lastCol + 1)).Interior.ColorIndex = 24 '---- 罫線の描画 With Range(Cells(1, 1), Cells(cLine, lastCol + 1)).Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
-
hananeko_0
-
hananeko_0その他の回答
まだオープンされてない回答
この質問へのコメント
質問の情報
- 登録日時
- 2008-09-10 01:04:54
- 終了日時
- 2008-09-11 21:00:14
- 回答条件
- 1人5回まで
この質問のカテゴリ
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者
各列に対して、同じ商品名単位で小計の行を、最終行に総計の行を追加するという
処理でよいでしょうか。
（１）ループの条件変更
修正前：Do While Cells(cLine, "A").Value <> ""
↓
修正後：Do While Cells(cLine - 1, "A").Value <> ""
（２）総計の処理の修正
修正前：Cells(cLine, "A").Value = Cells(cLine, "A").Value & "総計"
↓
修正後：cLine = cLine - 1
Cells(cLine, "A").Value = "総計"
職場でご回答分を確認したので、早速大活躍しております。（*^_^*）
毎回いただく回答を大切に保管し、日々勉強しています。
VBAは深いが楽しいです。
今回も本当にありがとうございました！