外壁塗装マスター

外壁塗装マスター

雨漏り修理 板橋

vbaで悩んでます。アドバイスをいただけないでしょうか。 1つのブ

投稿日:

vbaで悩んでます。アドバイスをいただけないでしょうか。
1つのブックに複数シートがあり、シート名に各店舗名が入ってます。
各シートに顧客データがあり、1行目は全部同じ見出し行です。
一番右端に「全データ」と いう見出しのシートがあります。
「全データ」というシートに各シートのデータを見出し行を除いて貼り付けたく、ネットを検索して、特定のシートを「全データ」に貼り付ける
マクロは出来たのですが、シート名は可変で、ブック毎にシート枚数も
異なります。
1番左端のシートからデータを「全シート」に、貼り付けたいのですが、
どのようにしたらいいのでしょうか。
vbaは素人で、これをどうしたらいいか分かりません・・・
どなたかアドバイスをいただけないでしょうか。
Sub タイトル行を除き別シートに追加()
'変数の宣言
Dim LstRow1 As Long
Dim LstRow2 As Long
'最終行の取得
LstRow1 = Worksheets("板橋店").Cells(Rows.Count, 1).End(xlUp).Row
LstRow2 = Worksheets("全データ").Cells(Rows.Count, 1).End(xlUp).Row
'タイトル行を除き、Sheet2へコピー、貼り付け
Worksheets("板橋店").Range("A2:E" & LstRow1).Copy
Worksheets("全データ").Range("A" & LstRow2).Offset(1, 0).PasteSpecial xlPasteAll
End Sub



一例です。
Sub sample()
Dim i As Long
For i = 1 To Sheets.Count
If Sheets(i).Name <> "全データ" Then
Sheets(i).Range("A1").CurrentRegion.Offset(1).Copy _
Sheets("全データ").Cells(Rows.Count, "A").End(xlUp).Offset(1)
End If
Next
End Sub


-雨漏り修理 板橋
-, , , , , ,

Copyright© 外壁塗装マスター , 2019 All Rights Reserved Powered by AFFINGER5.