在一张纸上混合不同的打开的纸张

Question

我在一个文件中有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相同的信息，我想在片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 .

以下数据是否有任何解决方案，做到在Excel中

非常感谢您的帮助。

Answer 1

这是使用VBA宏执行此操作的一种方法。复制循环中除标题外的每个表单数据。最后复制工作表中（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