[[20150624102752]]　『VBA　複数のシートのデータを１つにまとめたい』（しげ）　ページの最後に飛ぶ

『VBA　複数のシートのデータを１つにまとめたい』（しげ）

各シートの構成は

シート５・・・データ１
シート６・・・データ２
シート７・・・データ３
シート８・・・データ４
シート９・・・全データ

シート５～８のデータは５０００行前後で固定していません。

行は１行目に項目、２行目以降がデータが入力されます。
列はＡ～Ｖ列まで使用していて、シート５～９すべて行・列共に同じ構成です。

シート９（全データ）にシート５～８（データ１～４）のデータ（２行目～Ｎ行）をコピペしたいです。（シート５～８はデータがない場合もあります）

よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 しげさん、こんにちは。

 VBAではありません。
 データが連続しているなら以下の作業を４回繰り返してできないでしょうか？

 シート５から８で行う操作
 １．データが記録されているか目視し、記録されていたら２に進む。
 ２．データの範囲内で［Ctrl］キーと［Shift］キーを押しながら［＊］キーを押す。
 ３．［Ctrl］キーを押しながら［C］キーを押す。
 ４．シート９を選択する。

 シート９で行う操作
 ５．名前ボックスに　A1048576　と入力して［Enter］キーを押す。
 ６．［Ctrl］キーを押しながら［↑］キーを押す。
 ７．［↓］キーを押す。
 ８．［Ctrl］キーを押しながら［V］キーを押す。
 ９．アクティブセル（項目名）のある行番号を右クリックする。
 １０．ショートカットメニューから「削除」をクリックする。
 １１．１．に戻る。
（OtenkiAme） 2015/06/24(水) 13:05

OtenkiAmeさん

ありがとうございます。
でもＶＢＡでやりたいんですよね。。。

 ちょっと訂正（14:35)

 一例です。

 Sub Test()
    Dim fsh As Worksheet
    Dim tSh As Worksheet

    Application.ScreenUpdating = False

    Set tSh = Worksheets("Sheet9")
    'Sheet9の２行目以降をクリア
    If tSh.UsedRange.Rows.Count > 1 Then tSh.UsedRange.Offset(1).ClearContents

    For Each fsh In Worksheets(Array("Sheet5", "Sheet6", "Sheet7", "Sheet8"))
        'データ行があるシートのみ実行
        If fsh.UsedRange.Rows.Count > 1 Then fsh.UsedRange.Columns("A:N").Offset(1).Copy tSh.Range("A" & tSh.Rows.Count).End(xlUp).Offset(1)
    Next

    tSh.Select

 End Sub

（β） 2015/06/24(水) 14:32

βさん

ありがとうございます。
無事完成しました！

コメント返信：

[ 一覧(最新更新順) ]

[[20150624102752]] 『VBA 複数のシートのデータを１つにまとめたい』（しげ） ページの最後に飛ぶ

[[20150624102752]]　『VBA　複数のシートのデータを１つにまとめたい』（しげ）　ページの最後に飛ぶ