シート内で開いている別のシートを混ぜる

Question

1つのファイルに10枚のシートがあります。それぞれには同じ見出しがあります。私はシート11のデータを結合したいと思います。たとえば、シート1に3つの行がある場合、結合した後に30行あります。ここ

A \t N \t M \t N \t Z1 \t Z2 
 
11 \t b \t c \t d \t 1 \t 2 
 
10 \t c \t v \t l \t 1 \t 1 
 
12 \t t \t t \t p \t p \t p

は、シート1に他のシートが同じ見出しが異なる値を有する例です。私たちは、シートは、シート1のように同じ情報を持っていると仮定した場合ので、私は

Excelでそれを行うための任意の解決策はあるのシート11

A \t N \t M \t N \t Z1 \t Z2 
 
11 \t b \t c \t d \t 1 \t 2 
 
10 \t c \t v \t l \t 1 \t 1 
 
12 \t t \t t \t p \t p \t p 
 
11 \t b \t c \t d \t 1 \t 2 
 
10 \t c \t v \t l \t 1 \t 1 
 
12 \t t \t t \t p \t p \t p 
 
11 \t b \t c \t d \t 1 \t 2 
 
10 \t c \t v \t l \t 1 \t 1 
 
12 \t t \t t \t p \t p \t p 
 
11 \t b \t c \t d \t 1 \t 2 
 
10 \t c \t v \t l \t 1 \t 1 
 
12 \t t \t t \t p \t p \t p 
 
. \t . \t . \t . \t . \t . 
 
. \t . \t . \t . \t . \t . 
 
. \t . \t . \t . \t . \t .

に次のデータを取得したいです

ご協力いただきありがとうございます。

Answer 1

これは、VBAマクロを使用して行う方法の1つです。ループ内のヘッダー以外の各シートデータをコピーします。最後にワークシートからヘッダをコピー（1）：

Sub copySheets() 

    Dim copyRng As Range 
    Dim lastRow As Integer, i As Integer 
    For i = 1 To 10 
    lastRow = Worksheets(i).Cells(Worksheets(i).Rows.Count, "A").End(xlUp).row 
    Set copyRng = Worksheets(i).Range("A2:F" & lastRow) 
    With Worksheets(11) 
     copyRng.Copy Destination:=.Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0) 
    End With 
    Next 
    Worksheets(1).Rows(1).Copy Destination:=Worksheets(11).Rows(1) 

End Sub