Question

excel vba 我有10个工作簿 每个工作簿下有N个工作表 形成分表汇总文件的宏怎么设置

求教各位大神。我有 a b c d e f g h i 9个工作簿，每个工作簿家都有01 02 03 04 05 06 07 08 09 10 10个工作表，如何通过vba批量移动生成工作簿名称为“01分表”,“02分表”, "03分表", "04分表", "05分表", "06分表", "07分表", "08分表", "09分表", "10分表"的十个工作簿，01分表中有a b c d e f g h i 9个工作簿的01工作表，前面加一个汇总表，为各01表各项数据的合计值。

Answer 1

这个没有算法难度，按照你说的文字写语句即可，下面是粗略的代码，需要粘贴到你的环境进行调试：

for each nb in array("01","02","03","04","05","06","07","08","09","10")
    set wb = workbooks.add
    wb.saveas nb & "分表"
    for each ns in array("a","b","c","d","e","f","g","h","i")
        workbooks(ns).sheets(nb).copy after:=wb.sheets(wb.sheets.count)
    next ns
    wb.save
    wb.close
next nb

汇总的代码没有写，与表格格式与汇总算法有关

Answer 2

免费干这事的人，你再等等吧。
9个文件你手动弄了算了。就是个工作簿和工作表互换名称的事。
数据汇总用VBA倒是没问题，9个文件，还是太少了。

Answer 3

工程浩大，但可以实现

Answer 4

表格发给我我给你做

Answer 5

直接写好发出来？