請問EXCEL VBA中sumproduct用法

excel excel vba

jasonh 2019-02-27 08:54:53 ‧ 3901 瀏覽

請問VBA中sumproduct用法
01-31個工作表
C攔若為4碼, 則加總G攔資料放於G4
每一工作表之資料由第6列開始向下數量不同
試寫了一個但出現"型態不符合"的錯誤
請問要如何更改
Sub totaltest()
Dim k As String
Dim TypeN(1 To 31)
For i = 1 To 31
k = i
If i < 10 Then k = "0" & k
TypeN(i) = k
Worksheets(TypeN(i)).Select
crow = Range("C3").End(xlDown).Row
Range("G4").Value = WorksheetFunction.SumProduct((Len(Range("C6:C" & crow)) = 4) * Range("G6:G" & crow))
Next
End Sub

paicheng0111 iT邦大師 5 級 ‧ 2019-02-27 10:23:07 檢舉

錯誤訊息出現在哪一行？

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

paicheng0111

iT邦大師 5 級 ‧ 2019-02-27 10:28:19

最佳解答

我會建議用.formula屬性

Range("G4").formula = "=SumProduct((Len(" & Range("C6:C" & crow).address & ")=4)*1," & Range("G6:G" & crow).address & ")"

如果不想把公式顯示出來，可以再加上

Range("G4").value = Range("G4").value

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

15th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 python windows php c# windows server linux css 程式設計 react vue.js

IT邦幫忙