vba - Excel、for ループの問題

Question

指定された行から開始し、ドキュメントの最後まで反復する単純な for ループを Excel VBA で設定しようとしていますか? Googleでこれを行う方法を見つけることができないようです。どんな助けでも大歓迎です。

Answer 1

ユーザーにどのセルを開始するかを指定してもらいたい場合は、これが機能します。

Sub myLoop()
Dim userInput As String
Dim count As Integer
Dim first As Integer

userInput = InputBox("Which cell would you like to start in?", "Enter Range like 'A1'")
first = ActiveSheet.Range(userInput).Row
count = ActiveSheet.UsedRange.Rows.count

For i = first To count
    MsgBox "Row: " & i
    'Replace the above msgbox function with the code you would like to run
Next i
End Sub

Answer 2

Dim CurrentRow
Dim LastRow
Dim i

CurrentRow = ActiveCell.Row
CurrentColumn = ActiveCell.Column
LastRow = ActiveSheet.Rows.Count

For i = CurrentRow to LastRow
   Cells(i, CurrentColumn).Value = "X"
Next i