samwang

回復 10# jsc0518


方便附上檔案且說明一下問題需求，謝謝

jsc0518

回復 11# samwang

我希望將 F2欄位Sumif公式轉成VBA

下載 (27.07 KB)

2021-12-7 21:13

1111.rar (19.63 KB)

下載次數: 9

2021-12-7 21:13

samwang

回復 12# jsc0518

請測試看看，謝謝
Sub Sumif()
For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumif(Sheets("ROUND").Range("A2:A65536"), Cells(I, "A"), Sheets("ROUND").Range("M2:M65536"))
Next
End Sub

jsc0518

回復 13# samwang
Dear samwang,
正常可以使用，感謝您！ ^^

samwang

回復 14# jsc0518

如果資料多的話，13#會比較慢一點，謝謝

jsc0518

回復 15# samwang
Dear samwang,
您好！資料一多真的會跑很久，另外我套用的EXCEL檔案內有我有寫很多的函數，在執行sumif、sumifs這2個VBA語法都跑很慢，是否可以再簡化語法或是運算時間縮短呢？
Thank you.

Excel 執行VBA 時的畫面

下載 (5.84 KB)

2021-12-8 15:23

Sub Sumif()

For I = 2 To [a65536].End(3).Row
Cells(I, "H") = Application.Sumif(Sheets("ROUND").Range("A2:A65536"), Cells(I, "A"), Sheets("ROUND").Range("M2:M65536"))
Next

End Sub







Sub Sumifs()

For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumifs((Sheets("ROUND").[M2:M10000]), (Sheets("ROUND").[A2:A10000]), Cells(I, "A"))
Next

End Sub

samwang

回復  samwang
Dear samwang,
您好！資料一多真的會跑很久，另外我套用的EXCEL檔案內有我有寫很多的函數 ...
jsc0518 發表於 2021-12-8 15:24

請問方便可以附上檔案嗎?
以利測試用
謝謝

samwang

回復  samwang
Dear samwang,
您好！資料一多真的會跑很久，另外我套用的EXCEL檔案內有我有寫很多的函數 ...
jsc0518 發表於 2021-12-8 15:24

因為沒有附檔，只能用12#的檔案去寫，請測試看看，謝謝

Sub test()
Dim Arr, Brr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Tm = Timer
Arr = [ROUND!a1].CurrentRegion
For i = 2 To UBound(Arr)
    T = Arr(i, 1)
    xD(T) = Val(xD(T)) + Val(Arr(i, 13))
Next
With Sheets("Sumifs")
    Brr = .Range(.[a1], .[a65536].End(3))
    For i = 1 To UBound(Brr)
        Brr(i, 1) = xD(Arr(i, 1) & "")
    Next
    .[g1].Resize(UBound(Brr)) = Brr
End With
MsgBox Timer - Tm
End Sub

jsc0518

回復 18# samwang
Dear samwang,
晚上好！感謝您的熱心回復。因主要檔案資料內容為公司的資料，所以僅能用示範檔案給您，抱歉 ><"
剛剛是RUN了一下，有錯誤訊息！

下載 (49.96 KB)

2021-12-8 20:56

samwang

回復  samwang
Dear samwang,
晚上好！感謝您的熱心回復。因主要檔案資料內容為公司的資料，所以僅能用示 ...
jsc0518 發表於 2021-12-8 20:56

我測試沒問題如附件，請測試看看，謝謝