本文介绍了一段VBA代码，用于将Excel中多个工作表的数据合并到一个名为'all'的工作表内。通过循环遍历所有工作表（除'all'外），复制各表第2行至最后一行的数据，并粘贴到'all'工作表的最后一行下一行。
Sub MergeData()
If Worksheets.Count > 1 Then
For Each bb In Worksheets
If bb.Name <> "all" Then
bb.Rows("2:" & bb.UsedRange.Rows.Count).Copy
Worksheets("all").Paste (Worksheets("all").Cells(Worksheets("all").UsedRange.Rows.Count, 1))
End If
Next
End If
End Sub
If Worksheets.Count > 1 Then
For Each bb In Worksheets
If bb.Name <> "all" Then
bb.Rows("2:" & bb.UsedRange.Rows.Count).Copy
Worksheets("all").Paste (Worksheets("all").Cells(Worksheets("all").UsedRange.Rows.Count, 1))
End If
Next
End If
End Sub
扫一扫
277
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
