在Excel宏中循環

Question

我想寫一個使用循環的excel宏來瀏覽兩列日期，比較excel中的日期並在另一列中替換某些值（如果日期相同）。

這是我的excel代碼，有人能告訴我它有什麼問題嗎？我不斷收到錯誤循環。

Sub automatic_replace_using_do_while_loop() 
Dim A As Integer, H As Integer 
A = 1 
H = 1 

Do While H < 1186 
If Cells(A, 1).Value = Cells(H, 8).Value Then 
    Cells(H, 6).Value = Cells(i, 11) 
    H = H + 1 
    A = A + 1 
Else 
    H = H + 1 
Loop 


End Sub 

謝謝！

Answer 1

這不是我會盡力匹配日期的方式，但您永遠不會結束您的If語句。

Do While H < 1186 
    If Cells(A, 1).Value = Cells(H, 8).Value Then 
     Cells(H, 6).Value = Cells(i, 11) 
     H = H + 1 
     A = A + 1 
    Else 
     H = H + 1 
    END IF 
Loop 

我不知道i在哪裏發揮作用。我想你的意思是

Cells(H, 6).Value = Cells(A, 11)