同一工作簿下多工作表合并！！

洋务德雷

SQL+VBA结合使用。

笨鸟飞不高

kyousn 发表于 2023-4-12 16:41
大神好，可以把代码拷贝出来吗？公司内部看不到外部文件的代码，谢谢

Sub AwTest()
    Dim i&, j%, k%, u%, r&, arr, ws As Worksheet
    For Each ws In Sheets
        If ws.Name Like "*班" Then
            arr = ws.[A1].CurrentRegion
            If k = 0 Then
                k = 1: ReDim brr(1 To Rows.Count, 1 To UBound(arr, 2) + 1)
                u = UBound(brr, 2)
                r = r + 1
                brr(r, u) = "数据源"
                For j = 1 To UBound(arr, 2)
                    brr(r, j) = arr(r, j)
                Next
            End If
            For i = 2 To UBound(arr)
                r = r + 1
                For j = 1 To UBound(arr, 2)
                    brr(r, j) = arr(i, j)
                Next
                brr(r, u) = Trim(ws.Name)
            Next
        End If
    Next
    If r Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "合并"
        [A1].Resize(r, u) = brr
    End If
End Sub