Excel 怎样将多张格式相同的多张表合并到同格式的一张表
展开全部
给个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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
