VBAでループが発生しないために

Question

問題：For currentRow = 25 To rowCountの後、残りのfor文は何も原因でスキップされ続けます。

私は他の2つのForステートメントがこの問題のあるコードブロックの前にあり、それらのフォーマットはこれと同じで、両方ともうまくいきます。

Public Sub WeightB() 
    Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer 
    Dim currentRowValue As String 

    sourceCol = 7 
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row 

    For currentRow = 24 To rowCount 
     currentRowValue = Cells(currentRow, sourceCol).Value 
     If IsEmpty(currentRowValue) Or currentRowValue = "" Then 
      Cells(currentRow, sourceCol).Select 
      Exit For 
     End If 
    Next 
End Sub 

私はFor loops being skipped without cause in VBAを参照しましたが、まだこれを理解できませんでした。

Answer 1

、あなたの明確化コメントのとおり、22あるrowCount場合は、あなたのForループが

場合は24が22まで数えることができる方法がないよう、明らかに何もしません

For currentRow = 24 To 22

なりあなたは、あなたが

For currentRow = 24 To rowCount Step Iif(rowCount - 24 < 0, -1, +1) 

のようなものを使用することができ、最終的な数の方向にカウントする必要があるが、これは、あなたが何をしたいのか本当に？また、行番号と列番号にはLongタイプを使用し始めます。ワークシートの行数が32767を超えるようになり、すべてのモジュールの先頭にOption Explicitを使用すると、迷惑な自然発生変数の作成が不要になります。