Office中国论坛/Access中国论坛

标题: 分享一个工作簿中汇总所有sheet文件 [打印本页]

---

作者: yanwei82123300    时间: 2012-11-2 09:42
标题: 分享一个工作簿中汇总所有sheet文件

1. Sub 合并()
   
2. Dim m As Integer
   
3. Dim n As Integer
   
4. Dim o As Integer
   
5. For m = 2 To 30 '此处的30需要根据你实际的工作表数填写
   
6. n = Sheets(m).[a65536].End(xlUp).Row
   
7. o = Sheets(1).[a65536].End(xlUp).Row
   
8. Sheets(m).Select
   
9. Range("a1", "z" & n).Select
   
10. Range("a" & n).Activate
    
11. Selection.Copy
    
12. Sheets(1).Select
    
13. Range("a" & o + 1).Select
    
14. ActiveSheet.Paste
    
15. Next
    
16. End Sub
    

复制代码

---

作者: tmtony    时间: 2012-11-2 09:51
谢谢分享哦，先从个沙发。

---

作者: 刘青梅    时间: 2016-12-4 17:05
谢谢分享

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3