第2步，把对应的年度数据写入到数组中；把数据源的标题写入数组中；第3步，新建1个新的工作簿，然后...
Sheet4.Cells(point, 1).PasteSpecialpoint = point + 1End IfNext iEnd Sub 00分享举报为您推荐 利用VBA实现多个Excel工作簿快速合并方法 excel拆分为多个sheet excel多个标签合并 怎么将多个Excel工作簿合并成一个新的工作簿 excel删除符合条件行 如何把EXCEL数值导入另外一个excel excel中的index函数 e...
按ALT+F11,插入一个模块,输入下列代码.即可 Sub copyAll()fname = "C:\Book2.xls" '需要复制的excel文件地址及文件名,你自己修改 Set d = GetObject(fname) '打开文件 d.sheets("sheet1").Cells.Copy ActiveSheet.Cells(1, 1) '将sheet1完全复制到当前表 d.Close '关闭文件 Se...