Excel VBA在特定值后的空白单元格中添加值

在下面的示例中，VBA中是否有方法在3个x的旁边添加一个“Z”？单元格在3个x之后必须为空。（就像下面的第一个ID和April）

---

在回答您的问题时添加到接受的代码中：

subsub1（）
Dim irow和，icol和，n&
对于irow=2到6'行
n=0
对于icol=2至14'柱
如果单元格（irow，icol）=“那么
n=n+1
如果n是，有一种方法-但首先，你需要1。向我们展示您迄今为止的尝试和2。提供一个更好的示例数据集（行号是什么？列是什么？）。可能值得添加到这个问题中，因为它是对您的？
Sub sub1()
  Dim irow&, icol&, n&
  For irow = 2 To 6 ' rows
    n = 0
    For icol = 2 To 14 ' columns
      If Cells(irow, icol) = "" Then
        n = n + 1
        If n <= 3 Then 
            Cells(irow, icol) = "x"
        ElseIf n = 4 Then
            Cells(irow, icol) = "z"
        End If
      Else
        n = 0
      End If
    Next
  Next
End Sub