我在 VBA 的 for 循環中出現類型不匹配錯誤

Question

'find the total of ages and anticor level to find the average For i = 1 To lastCellNumber totalAge = totalAge + Cells(i, 4) totalAnticorLevel = totalAnticorLevel + Cells(i, 6) Next i

Answer 1

使用 FunThomas 的建議：

'find the total of ages and anticor level to find the average

For i = 1 To lastCellNumber
    if IsNumeric(Cells(i, 4).value) as sNumeric(totalAge) then
      totalAge = totalAge + Cells(i, 4)
    end if
   if IsNumeirc(totalAnticorLevel) and IsNumeric(Cells(i, 6).value) then
    totalAnticorLevel = totalAnticorLevel + Cells(i, 6)
    end if
Next i

但這不會計算其中一個地塊不是數字的情況，這將是您要解決的下一個問題。

Answer 2

當你這樣做

totalAge + Cells(i, 4)

您正在使用 CELL（ Cells(i, 4) ）添加一個值（ totalAge ）。 您需要使用單元格的值，例如：

totalAge + Cells(i, 4).value