如何利用宏(VBA)将多个excel表上的内容复印、粘贴到另一张表上？

合并之前，请先创建一个空白的 Sheet 作为合并目标 Sheet ，这个 Sheet 必须是第一个 Sheet 哦。如果不合并标题行（比如第一行）则 j=1 改为 j=2如果数据不是从第一行，或者第一列开始的，请修改 j=1 及 k=2 两行的参数。比如 j=2 k=3 表示从 第2行，第3列开始的数据。

Sub CombineSheet()Dim i, j, k, n As Integern = 1For i = 2 To ThisWorkbook.Sheets.CountFor j = 2 To ThisWorkbook.Sheets(i).UsedRange.Rows.CountFor k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.CountThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).textNext kn = n + 1Next jNext iEnd Sub

顶一下

(0)

0%

踩一下

(0)

0%