将EXCEL中的多个SHEET中内容合并到一个SHEET中

最新推荐文章于 2025-01-22 16:10:24 发布

原创最新推荐文章于 2025-01-22 16:10:24 发布 · 741 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

此篇博客介绍了一个VBA脚本，用于从多个Excel工作簿中高效地复制并整合数据，适用于数据迁移和报表汇总。它通过遍历工作簿，跳过表头行，按列合并数据，适用于非连续数据的合并。

Sub hb()

Dim bt, i, r, c, n, first As Long

bt = 1 #表头行数，多行改为对应数值#

Cells.Clear

For i = 1 To Sheets.Count

    If Sheets(i).Name <> ActiveSheet.Name Then

        If first = 0 Then

            c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column

            Sheets(i).Range("A1").Resize(bt, c).Copy Range("A1")

            n = bt + 1: first = 1

        End If

        r = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row

        Sheets(i).Range("A" & bt + 1).Resize(r - 1, c).Copy Range("A" & n)

        n = n + r - bt

    End If

Next

End Sub