[已解决]求一段汇总工作表资料的代码

zjdh

那就改成
If InStr("SummarySummary1汇总1汇总2", Sheets(I).Name) < 1 Then

eking_tang

zjdh 发表于 2015-8-22 10:19
那就改成
If InStr("SummarySummary1汇总1汇总2", Sheets(I).Name) < 1 Then

大哥~~小弟实在搞不定~~我估计是不是因为部分工作表是繁体字的关系,
麻烦你在帮忙看看我的原始档,
"ALL"就是需要把其他工作表资料汇总过来的工作表.
匯總 & 匯總2 & 年資不滿 & CIE定義標準 & 全廠名單这5张里边的资料不需要汇总.
麻烦帮忙修改,感谢.

zjdh

特殊崗位提報8.22.rar (159.88 KB, 下载次数: 9)

2015-8-22 13:24 上传

点击文件名下载附件

eking_tang

zjdh 发表于 2015-8-22 13:24

大哥~~
不知道你那边是不是OK~~附件我下载下来还是不行~~一样会吧其他工作表的内容汇总过来
能不能再麻烦你帮忙修改代码~~写成只汇总我指定工作表名的内容才汇总过来.
正好总的来说~~需要汇总的就这几个~~~而不需要汇总的还会添加一堆进来~~
感谢了先

zjdh

eking_tang 发表于 2015-8-25 10:15
大哥~~
不知道你那边是不是OK~~附件我下载下来还是不行~~一样会吧其他工作表的内容汇总过来
能不能再麻 ...

我上传的附件都是测试过的，运行正常。

zjdh

汇总指定工作表
特殊崗位提報8.25.rar (163.4 KB, 下载次数: 12)

2015-8-25 13:19 上传

点击文件名下载附件

eking_tang

zjdh 发表于 2015-8-25 13:19
汇总指定工作表

这个好~~太好了~~我可以自己随意选择~~太感谢你了~

eking_tang

zjdh 发表于 2015-8-25 13:19
汇总指定工作表

大哥~能不能帮我把你写的代码汇出成.bas文件啊~~我不知道为什么看不到你写的代码~~
方便我在其他工作表使用,感谢.

zjdh

代码很简单啊！怎么会看不到？？

1. Private Sub CommandButton1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Range("A2:M65536").ClearContents
   
4.     For T = 0 To ListBox1.ListCount - 1
   
5.         If ListBox1.Selected(T) = True Then
   
6.             Sheets(ListBox1.List(T)).UsedRange.Offset(1, 0).Copy
   
7.             ActiveSheet.Range("A65536").End(3)(2).PasteSpecial Paste:=xlPasteValues
   
8.         End If
   
9.     Next
   
10.     Unload Me
    
11.     For I = 2 To Range("A65536").End(3).Row
    
12.         Cells(I, 1) = I - 1
    
13.     Next
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    
16. Private Sub CommandButton2_Click()
    
17.     Unload Me
    
18. End Sub
    
19. 
    
20. Private Sub UserForm_Initialize()
    
21.     For I = 1 To Sheets.Count
    
22.         ListBox1.AddItem Sheets(I).Name
    
23.     Next
    
24. End Sub
    

复制代码

zjdh

桌面.rar (1.31 KB, 下载次数: 5)

2015-9-21 19:06 上传

点击文件名下载附件