vba运行时错误13 - 尝试执行循环时

Question

我有这段代码

Sub fillinvalues()

Dim interest As Double
Dim rate As Double
Dim payment As Double
Dim period As Double
Dim ws As Worksheet
Dim i As Object
Dim begbal As Double

Set ws = Worksheets("Sheet1")
payment = ws.Range("H3").Value
rate = ws.Range("H4").Value
begbal = ws.Range("E3").Value
begbal = 80000

Worksheets("Sheet1").Range("A2").Value = "PaymentNumber"
Worksheets("Sheet1").Range("B2").Value = "Payment/period"
Worksheets("Sheet1").Range("C2").Value = "Principal"
Worksheets("Sheet1").Range("D2").Value = "Interest"
Worksheets("Sheet1").Range("E2").Value = "RemainingBal"

ws.Range("A1:G1").Value = "Monthly Payments at effective monthy interest rate for 25-years"

ws.Range("A3").Value = 0
ws.Range("A3").Select
ws.Range("A3").Activate
period = 0

Do Until period = 301
' period = 0
ActiveCell.Offset(period, 0) = period
ActiveCell.Offset(period, 1) = payment
period = period + 1
Loop

Cells(3, 2).ClearContents

Cells(4, 4).Select
 Do Until ws.Columns(1) = Empty
ActiveCell.Value = ActiveCell.Offset(-1, 1).Value * rate
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(0, -2).Value - ActiveCell.Value
'For Each i In ws.Columns(4)
'i = ActiveCell.Offset(-1, 1).Value * rate
'ActiveCell.Value = i
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1).Value - ActiveCell.Offset(0, -1).Value
ActiveCell.Offset(1, 0).Activate
'Next i

Loop
End Sub

但是我在单元格D4上遇到类型不匹配错误（第二个循环在单元格（4,4）之后开始。我不明白为什么我已经宣布速率为双倍和当前单元格＆＃39 ; s值是双倍的（见附图）。谢谢。

Answer 1

我无法评论，因为我没有足够的代表，但我会打赌事情正在发生：

Do until ws.Columns(1) = Empty

当我在新工作簿中对此进行测试时，在测试column = empty时，我总是如此。我相信这是因为“空”表示尚未分配值，并且它不是范围的属性。

我也同意R3uK。避免使用activecell和offset。如果你不知道有多少资源可以解决这个问题。通过单元格引用引用或使用数组要好得多。

最后，在没有任何错误处理或值检查的情况下减去值时，您可能还会遇到问题。因此，单元格可以包含例如字符串。如果您尝试减去或乘以此字符串，则会遇到错误。

我希望这有帮助！

编辑：完全错过了R3uK在我做之前处理空事的事实。