excel - 创建重复的 excel 宏代码，直到不再有文字提及

Question

我已经使用记录函数创建了这个宏代码。

Sub Macro1()
    Cells.Find(What:="Text to find", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False).Activate
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "text to enter"
    Range("D6").Select
    Cells.Find(What:="Text to find", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False).Activate
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "text to enter"       
End Sub

我需要这个宏继续通过同一列，直到它找不到更多搜索单词的实例，而不返回到列的顶部。

所以它从一列开始，每次它找到一个指定的单词时，它都会在 1 列中使用标签并粘贴到指定的单词中。

它继续在同一列中搜索指定的单词，直到它不从列的顶部开始就找不到它。

希望这有点道理。

Answer 1

不确定我是否理解，但我认为您正在寻找的是:

For each cell in columns(4).cells
    If cell.value="Text to find" Then Cell.offset(0,1) = "Text to enter"
Next cell