Excel 在列宏中每隔一秒查找并替换一个单词

我想将列中出现的每一个单词都改为另一个单词 例如：

我想将每秒钟的“Blank”更改为其他内容，例如“Blank1” 行数最多可达300行。 2个“空白”对最多可能出现30次。 XXXX是其他标签 希望最终结果是：

Column A    Column B      
    Blank        123
    Blank1        124
    XXXXX        125
    Blank        126
    Blank1        127
    XXXX         128
    XXXX         129
    XXXX         130
    etc
    Blank        150
    Blank1        151`

子空格（）
将ws设置为工作表：设置ws=ThisWorkbook.Sheets（“Sheet1”）'
Column A    Column B      
    Blank        123
    Blank1        124
    XXXXX        125
    Blank        126
    Blank1        127
    XXXX         128
    XXXX         129
    XXXX         130
    etc
    Blank        150
    Blank1        151`

Sub Blanks()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update Sheet Name

Dim i As Long, lr As Long

lr = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

For i = 2 To lr
    If ws.Range("A" & i) = "Blank" And (ws.Range("A" & i) = ws.Range("A" & i + 1)) Then
        ws.Range("A" & i + 1) = ws.Range("A" & i + 1) & 1
    End If
Next i

End Sub