EXCEL 如何用VBA语言将一个EXCEL文件中不同sheet中的同一列数据按顺序导入到一个sheet中去？

Question

如此图所示

Answer 1

代码如下, 详见附件的示例文件。

Sub MergeData()
    '将其他sheet的同列数据合并到第一张sheet
    Dim i As Integer, N As Integer
    Dim j As Long, k As Long

    N = Sheets.Count
    '如果工作簿中只有一张工作表，则退出
    If N = 1 Then Exit Sub

    '确定工作表的列数(假定其他工作表都与第一张工作表数据结构相同)
    '采用第一张工作表中第一列最后一行不为空的单元格的相邻区域的列数来确定
    '不采用A1相邻区域的列数来确定是防 止习惯将第1行留空或者第一行设为总标题，其下留空行的大众化习惯
    With Sheets(1)
        k = .Cells(.Rows.Count, 1).End(xlUp).CurrentRegion.Columns.Count
    End With

    '确定其他工作第一行是否为标题行
    '如果有标题行，则复制时应不包含标题行
    Dim Response, r As Integer
    Response = MsgBox("要合并数据的工作表中第一行为标题行吗？", vbYesNo)
    If Response = vbYes Then
        r = 2
    Else
        r = 1
    End If

    Application.ScreenUpdating = False

    For i = 2 To N
        With Sheets(i)
            j = .Cells(.Rows.Count, 1).End(xlUp).Row
            .Range(.Cells(r, 1), .Cells(j, k)).Copy Sheets(1).Cells(Sheets(1).Rows.Count, 1).End(xlUp).Offset(1, 0)
        End With
    Next i

    Application.ScreenUpdating = True
    Application.CutCopyMode = False
End Sub

Answer 2

右键总表，查看代码。粘贴如下代码。

sub mysub
dim i as integer
for i= 2 to sheets.count
sheets(i).range("e22:e" & sheets(i).[e65536].end(3).row).copy range("iv3").end(xltoleft).offset(,1)
next i
end sub本回答被网友采纳