EXCEL VBA 汇总工作表内容到一张表

白波九道

于 2013-09-11 13:03:38 发布

阅读量784

点赞数

CC 4.0 BY-SA版权

文章标签： excel vba

本文链接：https://blog.youkuaiyun.com/redstream/article/details/11560015

本文介绍了一段VBA代码，用于将多个Excel工作表的内容合并到一个新的工作表中。该程序通过查找特定的行来确定要合并的数据范围，并且能够处理大量数据，当数据量超过限制时会给出提示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub 合并各工作表内容()

sp = 0 '间隔
st = 9 '开如行数

Sheets(5).Select
Sheets.Add


For i = 7 To Sheets.Count

Sheets(i).Select

Set rng = Cells.Find("C. 标准工时")//这里是汇总到一个固定内容行
endnum = rng.Row - 1

zd = Cells(65536, 1).End(xlUp).Row
If zd > x Then
x = zd
End If

If x > endnum Then
x = endnum
End If

If y + x - st + 1 + sp > 65536 Then
MsgBox "内容太多，仅合并前" & i - 2 & "个表的内容，请把其它表复制到新工作薄里再用此程序合并！"
Else:
For j = st To x
If Cells(j, 1) <> "" And Cells(j, 1) <> "直接物料汇总金额" And Cells(j, 1) <> "B. 包装物料+生产辅料" Then
Rows(j).Select
Selection.Copy
Sheets(5).Select
Range("A" & CStr(y + 1)).Select
ActiveSheet.Paste

Sheets(i).Select
Range("A1").Select
Application.CutCopyMode = False

y = y + 1

End If
Next j
x = 0
End If
Next i

Sheets(5).Select
Range("A1").Select
MsgBox "这就是合并后的表，请命名！"

End Sub