excel怎么快速合并多个工作表数据到一个工作表

Question

如题所述

Answer 1

请通过上传附件给出实例。

下面给一个VBA代码用于将同一工作簿内除第一张空白工作表的其他具有相同表格格式的工作表中的纪录合并到第一张空白工作表：

Sub Marco1()
    On Error Resume Next
    Dim begin_no As Integer
    Begin_Row = InputBox("请输入数据开始行数：")
    Worksheets(1).Copy before:=Worksheets(1)
    Worksheets(1).Name = "total"
    Rows(Begin_Row & ":" & Rows.Count).ClearContents
    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
        With wks
            If .Name <> ActiveSheet.Name Then
                Intersect(.Cells(Rows.Count, 1).End(xlUp).CurrentRegion, .Rows(Begin_Row & ":" & Rows.Count)).Copy _
                Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            End If
        End With
    Next wks
End Sub

本回答被提问者采纳

Answer 2

这个只能用VBA比较好，具体要看你的数据什么格式的