excel 如何用 vba 批量提取指定工作表

Question

我有100多张表 名字都是 1 1（2） 2 2（2） 等等 我现在想把带（2）的全部提取出来 有高手能写个代码么！！！！！

Answer 1

放在thisbook的workbook的open方法下。

dim n as integer
dim names
names=""
for n=1 to worksheets().count-1
if worksheets(n).name like "(2)" then names=names&worksheets(n).name&char(13)
next n
msgbox names追问

额 这个没用过 用过模块 这个怎么用。。。

追答

把程序体放在一个过程中如下：
pubic sub name_s()
dim n as integer
dim names
names=""
for n=1 to worksheets().count-1
if worksheets(n).name like "(2)" then names=names&worksheets(n).name&char(13)
next n
msgbox names
end sub
然后 在使用时调用 call name_s()即可