|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
只写了个资产负债表的,其它的自己改吧:
Sub test()
Dim ar, i&, j&, br(1 To 49, 1 To 2)
Dim thisname, thispath, myxls, myname
thisname = ThisWorkbook.Name
thispath = ThisWorkbook.Path & "\"
myname = Dir(thispath & "*.xls")
Do While myname <> ""
If myname <> thisname Then
Set myxls = Workbooks.Open(thispath & myname)
ar = myxls.Sheets("资产负债表(DJT)").[h7:i55]
For i = 1 To 2
For j = 1 To 49
If IsNumeric(ar(j, i)) Then
br(j, i) = br(j, i) + ar(j, i)
End If
Next j
Next i
myxls.Close
End If
myname = Dir
Loop
Sheet1.[h7:i55] = br
End Sub |
|