エクセルのマクロは超初心者のため、難しいことは全く分かりません。

Question

エクセルのマクロは超初心者のため、難しいことは全く分かりません。
よろしくお願いいたします。　　m(_ _)m

同じbook内に複数のsheetがあります。
そのsheetは同じ型式のデータベースなのですが、sheetによって行が違います。

そのsheetのデータを一つのシートにコピー（一番上の先頭行はデータベースの名称でコピーしたくありません）
をして一覧でまとめたいのですが、方法がわかりません。

sheet数が多いので、一つずつコピー→ペーストをするのが大変なので…どうぞよろしくお願いします。

CoalTar · Accepted Answer

マクロの自動記録でシート2枚分行ってみました
一番左に一覧シートがあり、タイトル行が入っている
データベースはA列が埋っているという条件で

Sub Macro1()

Sheets("一覧").Select '「一覧」シートを選ぶ
    
    ActiveSheet.Next.Select '[Ctrl]+[F6]右隣のシートへ移動
    Range("A2").Select 'A2セルの選択
    Range(Selection, Selection.End(xlToRight)).Select '[Shift]+[Ctrl]+[→]
    Range(Selection, Selection.End(xlDown)).Select '[Shift]+[Ctrl]+[↓]
    Selection.Copy ''[Ctrl]+[C]コピー
    Sheets("一覧").Select '「一覧」シートを選ぶ
    Range("A65535").Select 'A65535セルの選択
    Selection.End(xlUp).Select '[Ctrl]+[↑]
    ActiveCell.Offset(1, 0).Range("A1").Select '[↓]
    ActiveSheet.Paste '[Ctrl]+[V]貼り付け
    
    ActiveSheet.Next.Select '[Ctrl]+[F6]右隣のシートへ移動
    ActiveSheet.Next.Select '[Ctrl]+[F6]右隣のシートへ移動
    Range("A2").Select 'A2セルの選択
    Range(Selection, Selection.End(xlToRight)).Select '[Shift]+[Ctrl]+[→]
    Range(Selection, Selection.End(xlDown)).Select '[Shift]+[Ctrl]+[↓]
    Sheets("一覧").Select '「一覧」シートを選ぶ
    Range("A65535").Select 'A65535セルの選択
    Selection.End(xlUp).Select '[Ctrl]+[↑]
    ActiveCell.Offset(1, 0).Range("A1").Select '[↓]
    ActiveSheet.Paste '[Ctrl]+[V]貼り付け
    
    Application.CutCopyMode = False '[Esc]
End Sub

改善案
Sub Macro2()
    Dim n As Long '変数nの定義
    Dim i As Long '変数iの定義
    
    Sheets("一覧").Select
    'シートの枚数-1回分、全体を繰り返す
    For n = 1 To Worksheets.Count - 1 Step 1
    
        '[Ctrl]+F6]を押す回数が増えていることに着目
        For i = 1 To n Step 1
            ActiveSheet.Next.Select
        Next i
        
        Range("A2").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("一覧").Select
        Range("A65535").Select
        Selection.End(xlUp).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
        ActiveSheet.Paste
    Next n
    Application.CutCopyMode = False '[Esc]
End Sub

keithin · Answer

あなたが目で見て判る，たとえば今のシートは何列から何列まで使っているのかとか，タイトル行は１行なのか２，３行なのか，そもそも表はＡ１セルを左上にして置いてあるのかとか，そういった事だけでも具体的な情報をご相談に書いてみると良いですね。

サンプル：
どのシートもＡ：Ｆ列を使っている
どのシートも１行目をタイトル行にしている
どのシートも２行目から実データが入っている
どのシートも少なくともＡ列は，表としてデータを入れてる範囲の一番下のセルが空欄になってたりしないで，ちゃんとデータが入っている。

作成例：
sub macro1()
　dim i
　worksheets.add before:=worksheets(1)
　worksheets(2).range("1:1").copy destination:=worksheets(1).range("A1")
　for i = 2 to worksheets.count
　　worksheets(i).range("A2:F" & worksheets(i).range("A65536").end(xlup).row).copy _
　　　destination:=worksheets(1).range("A65536").end(xlup).offset(1)
　next i
end sub

rukuku · Answer

おはようございます

＞そのsheetは同じ型式のデータベースなのですが、sheetによって行が違います。
行数は違っても列数は同じとして回答します。

「Cells」と「Range」を使った範囲指定で出来ます（方法はいろいろとありますので他の方は別の方法を紹介するかもしれません）。

要素になりそうなことを説明していきますので、一つ一つ試してみて、どういう動作になるのか確認してみてください。

１．「A2:Z200」をコピーする
Sub sumple()
  Range("A2:Z200").Copy
End Sub

２．最終行を取得する
Sub sumple()
  Dim LastRow As Long
  LastRow = [A65536].End(xlUp).Row
  MsgBox LastRow
End Sub
…ただし、「A列は必ず値が入っている」および「65536行は使っていない」が条件です。
　65536というのは、Excel2003までのバージョンの最終行です。

３．A～Z列の2行目から最終列までコピーする
Sub sumple()
  Dim LastRow As Long
  LastRow = [A65536].End(xlUp).Row
  Range("A2", Cells(LastRow, "Z")).Copy
End Sub

４．複数のシートに同じ（同じような）処理をする
Sub sumple()
  Dim MyWorksheet As Worksheet
  For Each MyWorksheet In Worksheets
    MyWorksheet.[A1] = "Hallo World"
  Next MyWorksheet
End Sub

－－－－－－－－－－－－－－
セルの指定の仕方には
・Range　（セルの範囲を指定する）
・Cells　（行番号、列番号でセルを指定する）
・[]　（セル・セル範囲を直接指定する）
の3つがあります。いろいろと試して見てください。

p(^^)q

CGSK · Answer

エクセルに関して、ここで答えて簡単に判るとは、ちょっと無理としか申せません。

エクセルのマクロは超初心者のため、難しいことは全く分かりません。

マクロの自動記録でシート2枚分行ってみました

この回答への補足

おはようございます

エクセルに関して、ここで答えて簡単に判るとは、ちょっと無理としか申せません。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング