[[20140814095401]]　『複数のシートを一つのシートに行方向に加算してま』（haruharu）　ページの最後に飛ぶ

『複数のシートを一つのシートに行方向に加算してまとめる』（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

???様ありがとうございます。
エクセルに例示している内容でシート1、2を作成し、シート「まとめ」にてマクロを実行しましたが、
コンパイルエラー　Meキーワードの使用方法が不正です。と警告が出てストップします。
知識不足で済みませんが何処を修正すれば良いのでしょうか。
（haruharu） 2014/08/16(土) 21:21

 横から失礼致します。

 コードを「標準モジュール」に貼り付けていませんか？
 ???さんは
 ＞「シートまとめ」シートのマクロとして貼ること。 
                   ~~~~~~~~~~~~~~
 とお伝えしています。
 シート「まとめ」を右クリックして、「コードの表示」をクリックし、開いた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

稲葉さん、適切なフォロー感謝！
（???） 2014/08/18(月) 14:26

稲葉さん、?？？さんありがとうございました。
ご指摘の様にしましたら、しっかり実行しました。
初歩的なミスでお手数を掛けしまして申し訳なかったです。
もっと勉強します。助かります。
（haruharu） 2014/08/18(月) 15:09

コメント返信：

[ 一覧(最新更新順) ]

[[20140814095401]] 『複数のシートを一つのシートに行方向に加算してま』（haruharu） ページの最後に飛ぶ

[[20140814095401]]　『複数のシートを一つのシートに行方向に加算してま』（haruharu）　ページの最後に飛ぶ