合并一个工作簿下的工作表

13631632978

大师们，我写了一个代码，合并同一个工作簿下的所有工作表，每次都带上了第一行的行内容，因为工作表格式一样，所以合并时不需要第一行的信息，帮忙看看修改一下，谢谢！


Sub 合并当前工作薄下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
    If Sheets(j).Name <> ActiveSheet.Name Then
        X = Range("A65536").End(xlUp).Row
        Sheets(j).UsedRange.Copy Cells(X, 1)
    End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完成！", vbInformation, "提示"

End Sub

海好呀

Sub 合并当前工作薄下的所有工作表()
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Clear
For j = 1 To Sheets.Count
    If Sheets(j).Name <> ActiveSheet.Name Then
        n = n + 1
        If n = 1 Then
           X = Range("A65536").End(xlUp).Row
           Sheets(j).UsedRange.Copy Cells(X, 1)
        Else
           X = Range("A65536").End(xlUp).Row + 1
           With Sheets(j)
                y = .Range("A1").CurrentRegion.Rows.Count
                Z = .Range("A1").CurrentRegion.Columns.Count
                .Range(.Cells(2, 1), .Cells(y, Z)).Copy Cells(X, 1)
           End With
        End If
    End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完成！", vbInformation, "提示"

End Sub

gwjkkkkk

应该不难解决，上传附件。。。

盼盼198310

j 循环的时候加个记数器,只当记数器为1的时候要表头就行了

洋务德雷

这个合并用SQL或者PQ都可以，vba反而繁琐了

yynrzwh

Sheets(j).UsedRange.Copy Cells(X, 1)
改为：
        With Sheets(j)
            y = .Cells(Rows.Count, 1).End(3).Row
            .Range("A2:G" & y).Copy Sheets("sheet1").Cells(X + 1, 1)
        End With