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

本文介绍了一段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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值