'把要汇总的工作簿放在同一文件夹下，再建一个汇总工作簿，把下面代码放入汇总工作簿中。 Sub ABCD() Dim lj As String Dim dirname As String Dim nm As String lj = ActiveWorkbook。
Path nm = ActiveWorkbook。Name dirname = Dir(lj & "\*。xls") Cells。Clear Do While dirname <> "" If dirname <> nm Then Workbooks。
Open Filename:=lj & "\" & dirname Workbooks(nm)。Activate Workbooks(dirname)。Sheets(1)。Range("A4:J15")。Copy _ Sheets(1)。
Range("a65536")。End(xlUp)。Offset(1, 0) Workbooks(dirname)。Close False End If dirname = Dir Loop Rows("1:1")。
Select Selection。Delete Shift:=xlUp End Sub（愿你给个好评,急需啊~%>_<%~祝你生活愉快）。
答：有两种办法： 一、用“数据/合并计算”功能。 1、合并计算的前提是，参与计算的表格格式必须完全相同。 2、在表3中选择左上角单元格；点“数据/合并计算”，在函数...详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
