|
- Sub 合并工作表信息()
- 'On Error Resume Next '// 发生错误,自动执行下一句,就是忽略错误
- Application.ScreenUpdating = False '//关闭屏幕刷新
- Application.DisplayAlerts = False '//关闭系统提示
- Sheets("1-12月汇总").Range("A4:CC65536").Clear '清除汇总表内容
-
- arr = Split("1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月", ",")
- For Each a In arr
-
- rw = Sheets("1-12月汇总").UsedRange.Rows.Count + 1
- t = Sheets(a).UsedRange.Rows.Count
- Sheets(a).Range("A2:CC" & t).Copy Sheets("1-12月汇总").Range("a" & rw)
- Next
-
- '
- ' For i = 4 To 15
- ' rw = Sheets("1-12月汇总").UsedRange.Rows.Count + 1
- ' t = Sheets(i).UsedRange.Rows.Count
- ' Sheets(i).Range("A2:CC" & t).Copy Sheets("1-12月汇总").Range("a" & rw)
- ' Next
- Application.ScreenUpdating = True '//恢复屏幕刷新
- Application.DisplayAlerts = True '//恢复系统提示
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|