如何使If語句進入VBA中的For循環

Question

我在VBA中制作一個項目，以下代碼遇到問題...

它說有一個對象或一個未定義的函數，但我不明白為什么……關於問題的任何想法？

（所有變量都已聲明，我檢查了床單的名稱）

Set FinalRange = ActiveWorkbook.Worksheets("Fiche Horaire").Range("A:A")
emptyroww = WorksheetFunction.CountA(FinalRange)

precautionroww = 0
If emptyroww > 50 Then precautionroww = emptyroww - 50

For a = precautionroww To emptyroww
    If ActiveWorkbook.Worksheets("Fiche Horaire").Cells(a, 1).Value = name Then ActiveWorkbook.Worksheets("Fiche Horaire").Cells(a, 4).Value = "it works"
Next

它給出的消息是“應用程序定義的錯誤或對象定義的錯誤”

Answer 1

如果您的預防措施行為0，因為您的空行低於50，則嘗試將數據插入第0行，這會導致錯誤

如果您有一個for循環並以與您的“結束”值相同的值開始，而我仍然運行1次，則在VBA中就是一個問題。