セルの読み込みは、最初のループを介してのみ動作します

Question

私は比較的新しいVBAです。私はテーブルをループし、ループごとに別の値を取得しようとしています。

Sub Macro3() 
    Dim i As Integer 
    Windows("CC_1000H.xlsx").Activate 
    Sheets("CC_1000H").Select 

    Dim Count_Accounts As Integer 
    Dim NewLine As Integer 

    Count_Accounts = Worksheets("Sheet1").Cells(4, "H").Value 
    i = 0 
    Do Until i = Count_Accounts 
     i = i + 1 
     NewLine = Worksheets("Sheet1").Cells(i + 1, "F").Value 
     'Rows("4:4").Select Rows(NewLine).Select 
     '(More code) 
    Loop 
End Sub 

このループを初めて実行すると、コードは正常に動作します。 2回目に、Worksheets（ "Sheet1"）の値。セル（i + 1、 "F"）。値が空でNewLineが0です。セルの値をどのように参照するかは関係ありません。私がまったく私を使用していても、そうであっても。 2回目のセルの読み込みは行いません。

私がここで間違っていることを誰もが知っていますか？

おかげ

Answer 1

は、あなたがこの

Sub Macro3() 
    Dim i As Long 
    Windows("CC_1000H.xlsx").Activate 
    Sheets("CC_1000H").Select 
    Dim Count_Accounts As Long 
    Dim NewLine As Long 
    Count_Accounts = Worksheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row 
    i = 0 
    Do Until i = Count_Accounts 
     i = i + 1 
     NewLine = Worksheets("Sheet1").Range("F" & i + 1).Value 
    Loop 
End Sub