Excel.合并多张sheet

最新推荐文章于 2024-12-19 11:35:53 发布

转载最新推荐文章于 2024-12-19 11:35:53 发布 · 286 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：www.baidu.com

文章标签：

#excel

本文介绍了一种使用VBA宏代码将Excel中多个工作表的数据合并到第一个工作表的方法。通过循环遍历所有工作表，逐行读取并复制数据到目标工作表，实现了数据的快速整合。

新建一张sheet
鼠标放在sheet标签上右键
选择查看代码，粘贴下面代码，运行.

Sub CombineSheet()

Dim i, j, k, n As Integer
n = 1
For i = 2 To ThisWorkbook.Sheets.Count
For j = 2 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count
For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
Next k
n = n + 1
Next j
Next i

End Sub