单元格值只读通过循环第一次

我对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 

第一次通过这个循环，代码工作正常。 第二次通过，Worksheet（“Sheet1”）的值。单元格（i + 1，“F”）。值是空的，NewLine是0.似乎并不重要，我如何引用单元格的值，我是甚至是我用我。 它不会再读取一个单元格。

有谁知道我在这里做错了吗？

谢谢

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