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

Question

VBA中是否有办法添加＆＃34; Z＆＃34;在下面的示例中，3 x的旁边是什么？ 3 x后，单元格必须为空白。 （就像第一个ID和下面的四月一样）

Answer 1

在previous question的答案中添加已接受的代码：

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