iT邦幫忙

0

請問EXCEL VBA中sumproduct用法

  • 分享至 

  • xImage

請問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

錯誤訊息出現在哪一行?
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

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

我要發表回答

立即登入回答