[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『複数のシートを一つのシートに行方向に加算してまとめる』(haruharu)
はじめまして、よくエクセル学校を参考にしています。
ピッタリの例が見つからなかったので質問です。
複数のシートに同規則のデータが入っています。
桁項目は、A「人名」B「地区番号」C「層別番号」D「時間」
各シートでは項目は同じですが、データのある行数は違います。
各シートに空行があり、マクロ処理でそれを削除して、ひとつのシートに行を繋げて
まとめたいのですがどの様にしたらよいでしょうか。イメージはSheet1〜10まであり
Sheetまとめに行に加算する形でShieet1+2+…+10と空行無く繋げたい。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
↓のように例示出来ませんか?
[[20140811224311]] 『月別合計する方法』(もみじ坂)
(カリーニン) 2014/08/14(木) 10:17
Sheet 1[a] [b] [c] [d] 名前 地区番号 層別番号 時間 [1] 太郎 1234356 33345 15:30 [2] 二郎 1233456 4479 2:00 [3] 三郎 3334356 22234 13:30 [4] 四郎 1222356 444 22:08 [5] 五郎 6674356 778 18:07 [6] [7] 七郎 1235566 8897 4:30
Sheet2 [a] [b] [c] [d] 名前 地区番号 層別番号 時間 [1] 太郎 3334356 33345 6:30 [2] [3] 三郎 6674356 8897 8:30 [4] [5] 五郎 345628 9997 4:00 [6] [7] 七郎 998754 3345 8:15
★ヤリタイこと
シートまとめ に行方向に空行無く繋げたい [a] [b] [c] [d] 名前 地区番号 層別番号 時間 [1] 太郎 1234356 33345 15:30 [2] 二郎 1233456 4479 2:00 [3] 三郎 3334356 22234 13:30 [4] 四郎 1222356 444 22:08 [5] 五郎 6674356 778 18:07 [6] 七郎 1235566 8897 4:30 [7] 七郎 1235566 8897 4:30 [8] 太郎 3334356 33345 6:30 [9] 三郎 6674356 8897 8:30 [10] 五郎 345628 9997 4:00 [11] 七郎 998754 3345 8:15
繋げるシートは10シートあります。
よろしくお願いします。
(haruharu) 2014/08/14(木) 10:38
Sub test() Dim i As Long Dim j As Long Dim iR As Long
iR = 1
For i = 1 To Sheets.Count With Sheets(i) If Sheets(i).Name <> Me.Name Then For j = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row If .Cells(j, "A").Value <> "" Then iR = iR + 1 .Rows(j).Copy Me.Cells(iR, "A") End If Next j End If End With Next i End Sub (???) 2014/08/14(木) 12:02
横から失礼致します。
コードを「標準モジュール」に貼り付けていませんか? ???さんは >「シートまとめ」シートのマクロとして貼ること。 ~~~~~~~~~~~~~~ とお伝えしています。 シート「まとめ」を右クリックして、「コードの表示」をクリックし、開いたVBEにコードを 貼りつけて再度実行してください。 「標準モジュール」に誤って貼り付けたコードの削除も忘れずに。
追記 『マクロを「書いてみた」「動かした」「ダメでした」。』 http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_200.html 『デバッグトレースの開始方法』 http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_030.html (Mookさんお借りしま〜す)
(稲葉) 2014/08/18(月) 09:37
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.