将需要汇总的工作簿放在同一个目录，并新建一个名为" 汇总.xls"的工作簿 ，一个名为" 代码.xls"的工作簿。将下面的代码放入代码.xls，...

在同一个目录下，复制所有工作簿第一张表。适合只有一张表的汇总。 Sub 按钮1_Click() Dim path, file, count,...

Sub de() '去公式' Dim A As Worksheet For Each A In Sheets A.UsedRange =...

在需要生成目录的工作表里插入下面的代码，运行即可。 Sub ml() Dim sht As Worksheet, i&, shtname$ ...