Excel VBA：如何在If语句中运行For循环实现条件填充序列

原代码可直接在B列第1至5行填充1到5的序列：

Sub Macro6()
Dim i As Integer
For i = 1 To 5
Cells(i, 2).Value = i
Next i
End Sub

要实现当A列某单元格值为“Condition”时，从对应B列位置向下填充1至5序列，可以使用以下代码：

Sub FillSequenceOnCondition()
    Dim targetCell As Range
    Dim startRow As Integer
    Dim i As Integer
    
    ' 在A列查找值为"Condition"的单元格
    Set targetCell = Columns("A").Find(What:="Condition", LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 判断是否找到目标单元格
    If Not targetCell Is Nothing Then
        startRow = targetCell.Row ' 获取目标单元格的行号
        ' 从对应B列位置开始向下填充1到5
        For i = 1 To 5
            Cells(startRow + i - 1, 2).Value = i
        Next i
    Else
        MsgBox "A列未找到值为""Condition""的单元格"
    End If
End Sub

代码说明 #

• 用Find方法精准定位A列中值为“Condition”的单元格，LookAt:=xlWhole确保匹配完整单元格内容，避免部分匹配的情况
• 找到目标单元格后，提取其行号作为填充的起始位置
• 循环时通过startRow + i -1计算填充行号，保证从对应B列位置开始向下依次填入1到5
• 加入未找到目标单元格的判断逻辑，弹出提示避免程序报错

内容的提问来源于stack exchange，提问作者kripalrathod