求高人帮忙给解释一下语句的含义

lbwrong

汇总.rar (39.82 KB, 下载次数: 7)

2009-5-29 19:44 上传

点击文件名下载附件

Sub test()
Dim str As String
Dim str1 As String
Dim name As String
Dim address As String
Dim i As Long
Dim month As String

For i = 1 To 6
month = i & "月"
address = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.name))
name = Dir(address & "*.xls")
str = "'" & address & "[" & name & "]" & month & "'!b4"
Do While name <> ""
name = Dir
If name <> "" And name <> ThisWorkbook.name Then
str = str & "+" & "'" & address & "[" & name & "]" & month & "'!b4"
End If
Loop
Worksheets(month).Range("b4").Value = "=" & str
Set SourceRange = Worksheets(month).Range("b4")
Set fillRange = Worksheets(month).Range("b4:b7")
SourceRange.AutoFill Destination:=fillRange
fillRange.AutoFill Destination:=Worksheets(month).Range("b4:k7")
Next i
End Sub


我很喜欢这个汇总，因为汇总后
汇总的数值上面公式能显示出来是什么+什么得出来的，实际工作中我需要的和这个不太一样

我需要的是工作表名称全不一样如 Sheet1、装置性材料、土方、Sheet3..........  这种的
我想把这个 i 的循环去掉，并且 我只需要汇总数量这一行，
时我希望在汇总后的文件上面显示出来  文件名字如  工程a.xls  工程x.xls      下面显示他的数量

lbwrong

没人帮帮我吗？

开心萝卜惠州

VBA不怎么行，无法解释，呵呵