怎么用VBA实现把多个工作薄中的指定工作表复制到一个工作薄上面的多个工...答:材料:一个文件夹有多个工作薄(1,2,3,4,5,6,7,8,9,...在这个文件夹下创建个excel 然后复制黏贴代码 运行就可以了 Sub test_3()Dim FSO, Fld, fl Dim fPath$, fName Dim WB As Workbook Dim WS As Worksheet Application.DisplayAlerts = False fPath = ThisWorkbook.Path Set WB = ...