vba新手求助,如何union所有workbooks資料?

chis3

Option Explicit

Sub ab()

Dim i As Byte, rng As Range, rngg As Range

For i = 2 To Sheets.Count
    For Each rng In Sheets(i).Range("g1:g300")
        If rng Like "*L035*" Or rng Like "*L088*" Then
            If rngg Is Nothing Then
                Set rngg = rng
            Else
                Set rngg = Application.Union(rngg, rng)
            End If
        End If
    Next rng
Next i

Application.WorksheetFunction.Sum (rngg.Offset(0, 3))
            

End Sub



請問這種方法能不能? excel彈出最後那句不能實行
union只能用在單頁組合?
謝謝幫忙

chis3

打錯字
是worksheets不是workbooks

philijian

貌似是不能，并且这里也并不需要用到union，直接设一个sumdata累加求和就好了

chis3

philijian 发表于 2017-6-26 17:34
貌似是不能，并且这里也并不需要用到union，直接设一个sumdata累加求和就好了

那有沒有組合 worksheets 資料的方式？

philijian

可以放到数组、字典、集合等等里面，不过没有什么意义，做类似求和操作的时候还是要循环一个个的累加，并不能一次性操作

chis3

philijian 发表于 2017-6-26 17:34
貌似是不能，并且这里也并不需要用到union，直接设一个sumdata累加求和就好了

請教這個sumdata 怎麼做
我要的是找到這個的第三行數

qingc0221

应该不能,因为excel只能操作活动工作表

philijian

额...这个不就是
For Each rng In Sheets(i).Range("g1:g300")
        If rng Like "*L035*" Or rng Like "*L088*" Then sumdata=sumdata+rng.offset(0,3)
Next rng

qingc0221

打个比方,你是一家公司的司机,要去几个物流点提货,你每到一个物流点后,只是记下货物存放的位置,然后想在记下所有货物的位置后再一起搬上车..............

chis3

philijian 发表于 2017-6-26 18:14
额...这个不就是
For Each rng In Sheets(i).Range("g1:g300")
        If rng Like "*L035*" Or rng Lik ...

謝謝
還只有不足一個月的vba經驗,目前還在學習知識中,還沒到練習階段,目標是精通,希望能自己制作窗體程序給自己用