还是多个工作表数据汇总到一个工作表里的问题，求助！

qee888888

A.zip (116.37 KB, 下载次数: 16)

2015-1-26 16:41 上传

点击文件名下载附件
求改代码

请高手帮修改一下不能循环的问题（只能汇总一张表的内容）。谢谢！

TomingTang

1. Private Sub CommandButton2_Click()
   
2. Dim ws As Worksheet
   
3.     m = 8
   
4.     For Each ws In Sheets
   
5.         If Left(ws.Name, 2) = "订单" Then
   
6.       
   
7.             k = ws.[b7].End(xlDown).Row
   
8.             Arr = ws.Range("o8:z" & k)
   
9.             Sheets("LIST").Range("b" & m).Resize(UBound(Arr), 1).NumberFormatLocal = "00"
   
10.             Sheets("LIST").Range("b" & m).Resize(UBound(Arr), 1).HorizontalAlignment = xlLeft
    
11.             Sheets("LIST").Range("b" & m).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
    
12.             m = m + k - 7
    
13.             '  MsgBox ws.Name & " m=  " & m
    
14.         End If
    
15.     Next ws
    
16. End Sub
    

复制代码

TomingTang

两个错误点.1、Left(ws.Name, 2) = "订单"这个错了，订单是两个不是3，   2、这句  k = ws.[b7].End(xlDown).Row 不妥，因为你数据源工作表有公式。

qee888888

大师，非常感谢！

qee888888

运行了一些代码后，工作簿里的工作表不能删除了，请大师帮我，谢谢！