Question

Excel 怎样将多张格式相同的多张表合并到同格式的一张表

Answer 1

给个vba解法
sub
汇集数据()
dim
s
as
worksheet
for
each
s
in
thisworkbook.worksheets
with
s
if
.name
<>
"汇总表"
then
'假设存放结果的工作表叫“汇总表”，如果不是请做相应修改
c
=
c
+
1
.[b:b].copy
sheets("汇总表").cells(1,
c)
'修改方法同上
end
if
end
with
next
end
sub