Vba 如何在“之前合并空单元格”；“好的”；使用for循环

我有ms word表格的问题。 如何将“确定”之前的空单元格与for循环合并，然后将空单元格替换为文本“等待列表”， 样本：
#之前：
空的
空的
嗯
空的
空的
空的
嗯
空的
嗯

#之后：
候补名单
嗯
候补名单
嗯
候补名单
嗯

---

谢谢

试试这个，告诉我进展如何

Sub try()
Dim i As Integer, x As Integer, k As Integer
x = ActiveDocument.Tables(1).Rows.Count
'k = empty cell count before "ok"
For i = 1 To x - 1
   With ActiveDocument.Tables(1)
     If .Cell(i, 1).Range.Text = Chr(13) & Chr(7) And .Cell(i + 1, 1).Range.Text = Chr(13) & Chr(7) Then
        On Error Resume Next
            .Cell(Row:=i, Column:=1).Merge MergeTo:=.Cell(Row:=i + 1, Column:=1)
        On Error GoTo 0
        i = i - 1
        If i = ActiveDocument.Tables(1).Rows.Count - 1 Then
           GoTo EnterText
        End If
     End If
   End With
Next i

EnterText:
x = ActiveDocument.Tables(1).Rows.Count
For i = 1 To x
    With ActiveDocument.Tables(1)
        If .Cell(i, 1).Range.Text = Chr(13) & Chr(7) Then
          .Cell(i, 1).Range.Text = "waiting list"
        End If
    End With
Next i

End Sub

---

谢谢，它可以工作，但是如果我尝试添加一列“name”，它就不起作用了，我会在if.Cell（I，1）.Range.Text=Chr（13）&Chr（7）和.Cell（I+1，1）.Range.Text=Chr（13）&Chr（7）中得到错误，你知道吗？你的意思是如果你在列中添加标题，你会得到错误？

Sub try()
Dim i As Integer, x As Integer, k As Integer
x = ActiveDocument.Tables(1).Rows.Count
'k = empty cell count before "ok"
For i = 1 To x - 1
   With ActiveDocument.Tables(1)
     If .Cell(i, 1).Range.Text = Chr(13) & Chr(7) And .Cell(i + 1, 1).Range.Text = Chr(13) & Chr(7) Then
        On Error Resume Next
            .Cell(Row:=i, Column:=1).Merge MergeTo:=.Cell(Row:=i + 1, Column:=1)
        On Error GoTo 0
        i = i - 1
        If i = ActiveDocument.Tables(1).Rows.Count - 1 Then
           GoTo EnterText
        End If
     End If
   End With
Next i

EnterText:
x = ActiveDocument.Tables(1).Rows.Count
For i = 1 To x
    With ActiveDocument.Tables(1)
        If .Cell(i, 1).Range.Text = Chr(13) & Chr(7) Then
          .Cell(i, 1).Range.Text = "waiting list"
        End If
    End With
Next i

End Sub