值求和行我要總結大小可變的一行值:從5列到最後填充的單元行6自定義功能與特定文字
有問題的行必須包含「My text
」在欄B
。
這是我使用的代碼:這是返回#VALUE!
我
Function cenas()
Application.Volatile
Dim celula
Dim ultAno As Integer
Dim intervalo As Range
Dim separador As Worksheet
Set separador = Sheets("Sheet1")
ultAno = separador.Cells(6, 5).End(xlToRight).Column
For i = 1 To 50
celula = separador.Cells(i, 2).Value
If celula = "My text" Then
Set intervalo = Sheets(separador).Range(Sheets(separador).Cells(i, 5), Sheets(separador).Cells(i, ultAno))
cenas = Application.Sum(intervalo)
End If
Next i
End Function
嘗試了與變量聲明相關的不同方法,但找不到解決方案。
爲什麼你不包括D8的總和? – MatthewD
總和應該寫在哪裏? – MatthewD
結果應該寫入任何單元格(超出該表格) –