VBAでの行集計で困っています
- VBAを使用して、特定の列の合計値を求めたいです。
- B列の最終セルを見つけ出し、その列の合計値を求めたいです。
- 求めた合計値を右側の最終列までコピーしたいです。
- ベストアンサー
VBAでの行集計
VBAでの行集計 いつもお世話になっております 今 マクロでの行集計で困っております。 お力をお貸し下さい m(__)m したいことは B列最終セルを見つけ出し 列の合計を出す 合計を右横最終セルまでコピーする 最終はＲ列までです そこで下記のマクロで合計は出しました Dim BeforePos As Long BeforePos = Range("B4").End(xlDown).Row Cells(BeforePos + 1, 2).Formula = "=SUM(B4:B" & BeforePos & ")" このセルの数式を右最終列までコピーをしたい それだけのことですがうまくいきません どうかよろしくお願いします
- satoyumin
- お礼率100% (9/9)
- オフィス系ソフト
- 回答数3
- ありがとう数5
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは！ 外していたらごめんなさい。 一例です。 ご希望のB列の数式のコピーではないのですが、理屈としては同じことだと思います。 操作したいSheetで、最終行の1行下に各列の合計を表示するようにしてみました。 Sheet見出し上で右クリック → コードの表示 を選択し、↓のコードをコピー＆ペーストしてマクロを実行してみてください。 Sub test() Dim i, j As Long i = ActiveSheet.UsedRange.Rows.Count For j = 2 To 18 Cells(i + 1, j) = WorksheetFunction.Sum(Range(Cells(1, j), Cells(i, j))) Next j End Sub 以上、この程度しか思いつきませんでしたが 他に良いコードがあれば読み流してくださいね。m(__)m
関連するQ&A
- 関数の中で参照するセル範囲(変動する)の記述方法
セルJ5に下記の数式を入力するマクロを組みたいのですが、記述方法が分かりません。 =SUMIF(セル範囲(1),B5,セル範囲(2)) ・セル範囲(1)にはB5：C列の最終データまで ・セル範囲(2)にはC5：C列の最終データまで 自分なりに ActiveCell.Formula = "=SUMIF(Range(Cells(5, 2), Cells(Range("b5").End(xlDown).Row, 3)),b5,Range(Cells(5, 2), Cells(Range("C5").End(xlDown).Row, 3)))" と書いてみたのですがダメでした。 どうかご教授お願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCELで途中の集計行を除いて集計したい。
EXCEL2002で合計を出したいのですが、途中に「合計」とか「中計」などの集計行があり、最初から最後までSUM関数を使うとその分だけ重複してしまいます。途中の計算式が入っているセルを除いて集計するには、どうしたらよいでしょうか？Ａ列に項目（例えば、事務用品、コピー用紙、小計、固定電話料、携帯電話料、通信費計・・・）、Ｂ列に数値または計算式を入力しています。
- ベストアンサー
- オフィス系ソフト
- 最終行に合計（最終行が列によって異なる場合）
エクセルVBAに於いて質問させて頂きます。 タイトルにも書かせていただきましたが、 A列に行数可変のデータ（文字列）があり、 B列に行数可変のデータ（数字）があり、 A列の行数＞＝B列の行数の条件とき、 A列の最終行+2の位置のA列に文字で合計 A列の最終行+2の位置のB列にsumを表示する場合、 どのようにすれば出来ますでしょうか。 A列の最終行+2の位置のA列に文字で合計は With Range("A3") .End(xlDown).Offset(2, 0).Formula = "合計" End With でいけると思うのですが、 A列の最終行+2の位置のB列にsumを表示する場合どのようにすればいいのかわかりません。 ご教授のほどお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBA シート間の単一セルから結合セルへのコピー
マクロについてご教授をお願いします。 ◆実現したい事 2枚のシート（XとY）が存在します。 コピー元：Xシート コピー先：Yシート B列 B列 1行 商品１ コピペ→ １～３行結合 商品１ 2行 商品２ コピペ→ ４～５行結合 商品２ 3行 商品３ コピペ→ ６～８行結合 商品３ ・ ・ ・ ・ ・ ・ 最終行 最終行 XシートのB列に1行ずつ、商品名が羅列されています。 YシートのB列には、3行結合（B1:B3)、（B4:B6)、（B7:B9)・・・空白セルがあります。 Xシートの商品名をYシートの結合セルにマクロを使って処理したいです。 ◆試した事 (1)結合を解除し、XからYへ範囲コピーしたが、YのB列に再び、商品毎に2行追加し、結合 2行追加する方法がわからず断念 (2).valueでXシートB1 ＝ YシートB1を試みるができない ◆ここで詰まってます＞＜ Dim X As Worksheet Dim Y As Worksheet Dim 最終行1 As Long Dim 最終行2 As Long Dim cp1 As Long・・・・Yシート行変数 Dim cp2 As Long・・・・Xシート行変数 Set X = Worksheets(1) Set Y = Worksheets(2) 最終行1 = Cells(Rows.Count, 2).End(xlDown).row 最終行2 = Cells(Rows.Count, 2).End(xlDown).row For cp1 = 1 To 最終行１ For cp2 = 1 To 最終行2 Step 3 sh1.Cells(cp1, 2).Copy Destination:= sh2.Cells(cp2, 2) Next Next みたいな感じにできればと、Copyを.valueなどにしてみたりと試してみましたが、 なかなかうまくいかず、3日くらい悩んでいます。 シンプルにやりたいのですが、なにか良い方法などあれば、 ご教授のほどお願い致します＞＜
- ベストアンサー
- Visual Basic
- エクセル マクロで行の合計を数値で入力したい
マクロ初心者です。 F列からAJ列までの合計をAK列に数値で入力しようとしています。 ただし、FからAJ列の各セルに全てデータは入っていません。 したがってFからAJ列のいずれかにデータが入っている最終行を 見つけて合計を算入しようとしているのですが下記の通りやっても うまくいきません。教えてください。 エクセルのバージョンは2002です。 Sub () 'データが入っている最終行まで合計額を数字で入力 LastRow = Cells(65536, COL).End(xlUp).Row For i = LastRow To 6 Step -1 Set myRange = Range(Cells(i, 6), Cells(i, 36)) Cells(i, 37).Value = WorksheetFunction.Sum(myRange) Next i End Sub
- ベストアンサー
- その他(ソフトウェア)
- Excelで集計したとき、集計行にその上の行の文字データを表示させたい
Excelで集計したとき、合計行には数字などの列データは合計されますが、文字列データの列は数字が出てくるので、折りたたんだときに、たとえば（顧客名の列でAさんだとたら）合計行にも、Aさんという文字を表示させたいです。 手順としては集計させたあとに、マクロで合計行にもその上の文字列を単純にコピーできたらいいです。 手作業でもいいのですが、顧客名が多くて大変です。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルの１行おきの集計
エクセルで１行おきの集計をしています。 Ａ １ １ ２ ２ ３ １ ４ ２ ５ 関数Ａ（Ａ１とＡ３の合計）（合計２） ６ 関数Ｂ（Ａ２とＡ４の合計）（合計４） 関数Ａ SUM(IF(MOD(ROW(A$1:A$4),2)=1,A$1:A$4,0)) 関数Ｂ ？？？？？？？？？？？？？？？？？？？？ 関数Ａはうまくいっているのですが、 関数Ｂの設定がよくわかりません。。。 設定方法を教えて下さい。
- ベストアンサー
- オフィス系ソフト
- 最終行を探してSUMするには？
またまたお願いします。 シートT_日計作業にその日の注文データがあります。 金額はC列です。セルC2から始まっていきます。 金額の合計を求めるマクロを書いてますがうまくいきません。 (1) 最終行を求められたのですが、C2から最終行までの 普通、範囲設定でRange（"C2:C20").select と書きますよね。 最終行は z = Range("c1").End(xlDown).Rowで求めてあります。 今回の最終行がC20の場合、Z=20 となり 範囲指定は Range("C2:C&Z").Select ？？？？ これがうまくいきません。何か 勘違いしているのでしょか？ (2) ActiveCell.FormulaR1C1 = "=SUM(わかりません)" (1)がクリアーしたとして どう書けばよいのでしょうか？ 宜しくお願いします。 Sub 日計注文編() Dim z As Long Sheets("T_日計作業").Select '最終行番号を調べる If Range("c2").Value = "" Then z = 1 Else z = Range("c1").End(xlDown).Row End If 'C2から最終行番号までの合計を求める Range("C2:C&Z").Select ActiveCell.FormulaR1C1 = "=SUM(わかりません)" ・・・・
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで最終行取得ができない
エクセルVBAでたとえばC列にどこまでデータが入力されているかを調べるとき、通常は r = Cells(Rows.Count, "C").End(xlUp).Row などでできます。 しかし添付画像のような入力フォームが出来上がっており、かつC列に最初から何らか（画像では〒マーク）の入力がされているので、そこに回答者が途中まで入力された場合、これでは最終行は取得できません。 逆に上からEnd(xlDown)でやろうとしても、途中に空白セルがあってお手上げです。 余分な〒マークを元データから削除してしまいたいのですがそれでは入力されているところのマークまで消えてしまいます。 このようなファイルが何百もあり、それを1枚のシートにまとめようとしているのですが、この最終行取得でつまずいてしまいました。 どのような方法があるでしょうか？ 画像はエクセル2013ですが、実際にマクロを動かすのは2010です。
- ベストアンサー
- Excel（エクセル）
- エクセルマクロで表の途中の集計行と合計行追加
こんなことできますか？ エクセルの表が各シートに一つずつあります。 B列からR列まで使用しています。 始まりは３行目で見出し行です。 データは４行目以降ですが、これは各シートごとに最終行は異なります。だいたい１２０行から２００行程度です。 途中に空白はありません。 この表はS列の数値（１２種類）により分類され並べ替えてあります。 やりたいのは、S列の数値を見て、分類（同じ数字）ごとに集計する行を追加したいのです。 集計する列は、D～K列だけです。 そして、最終行に全部の合計も出したいのです。 ただ、量が多いのと、頻繁に行なう作業なのでマクロでささっと出来ないかと思います。 どなたかどうすればよいか教えてください。 なにとぞお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました 出来ました！！ セルを 行、列 ばらばらで考えれば良かったのですね。 まだまだ 初心者で なかなか良い考えが思い浮かびませんでした。 本当に ありがとうございました。