while loop in excel

Question

ループを使ってExcelのマクロを書き、2列の日付を比較し、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)