可以尝试使用excel文件合并拆分能手 4.8版，自动将多个工作簿或工作表合并，可以达到你想要的复制效果。
温馨提示：内容为网友见解，仅供参考
第1个回答 2020-02-24
将
'1月1日
粘贴至第一个表的a1单元格（原表a列有数据可插入一列），将其向下拖，如图：
按＂alt"+"f11＂键--＞＂插入＂--＞＂模块＂，将下面代码复制后粘贴过去：
sub
返回工作表名()
for
i
=
1
to
sheets.count
sheets(i).name
=
range("a"
&
i)
next
end
sub
如图：
--＞按＂f5＂键运行后返回，如图：
'1月1日
粘贴至第一个表的a1单元格（原表a列有数据可插入一列），将其向下拖，如图：
按＂alt"+"f11＂键--＞＂插入＂--＞＂模块＂，将下面代码复制后粘贴过去：
sub
返回工作表名()
for
i
=
1
to
sheets.count
sheets(i).name
=
range("a"
&
i)
next
end
sub
如图：
--＞按＂f5＂键运行后返回，如图：
第2个回答 2018-05-28
需要VBA代码来实现
相似回答
