Excel/VBA如何定位含指定文本的行作为循环终止的动态行号x

修改后的完整可运行代码如下：

Sub myMacro()
    Dim x As Long
    ' 插入行操作前先查找目标文本所在行号，此时行结构未修改，取值准确
    On Error Resume Next
    x = Columns("B:B").Find(What:="Important Notes", LookIn:=xlValues, LookAt:=xlWhole).Row
    On Error GoTo 0

    ' 未找到目标文本时给出提示并退出，避免运行时报错
    If x = 0 Then
        MsgBox "未在B列找到""Important Notes""文本，请检查数据后重试", vbExclamation
        Exit Sub
    End If

    ' 循环到目标行的前一行结束，不会触动Important Notes所在行
    For a = 10 To x - 1
        Cells(a, 2).Value = "Value for a"
        Cells(a + 1, 1).EntireRow.Insert
    Next a
End Sub

实现说明 #

• 查找目标行的逻辑放在所有行修改操作之前，获取的行号x是原始表格的准确值，不受后续插入行的影响
• 循环上限设置为x - 1，保证循环只会在目标文本所在行之前执行，后续你新增行只要保留B列的Important Notes，不需要手动修改循环上限
• 代码内置容错逻辑，找不到目标文本时不会直接抛出运行时错误，会给出明确提示

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