多表横向汇总

zy19880405

横向汇总多表，然后希望汇总过来的时候中间空一列
空的那一列 列宽为2
原工作表是没有“汇总表”这个表的 希望直接新建一个在最前面然后汇总

lsc900707

1. Sub gj23w98()
   
2.     Sheets.Add(before:=Sheets(1)).Name = "汇总表"
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> "汇总表" Then
   
5.             With sht
   
6.                  r = .UsedRange.Rows.Count
   
7.                  c = .UsedRange.Columns.Count
   
8.                  .[a3].Resize(r, c).Copy Sheets("汇总表").Cells(3, 1 + n)
   
9.                  n = n + c + 1
   
10.             End With
    
11.         End If
    
12.     Next
    
13. End Sub
    

复制代码

lsc900707

代码在审核，附件供参考：