我不断收到“如果没有阻塞则结束”错误

Question

我的数据集都在 A 列中，我试图在第 2 行和第 300 行之间读取数据。我需要读取每个单元格以查看其中是否包含信息。如果它没有任何信息，那么它将转到下面的下一个单元格。当它确实在单元格中找到信息时，它需要创建一个新工作簿并将该单元格值用作标题作为工作簿名称并循环到第 300 行。工作簿需要保存在我的桌面上名为 test 的文件夹中。我不断收到“如果没有阻塞则结束”错误

Sub blair() 
      Dim strName As String
      strName = ActiveCell.Value

      For ptr = 2 To 300
          If Cells(ptr, "a") = vbNullString Then
              Cells(ptr, "a") = Cells(ptr, "a").Offset(-1, 0)
          Else
              Set NewBook = Workbooks.Add
              With NewBook
                  .SaveAs Filename:="C:\Users\Marco\Desktop\test\" & strName & ".xls"
                  .Close
          End If
      Next
End Sub

Answer 1

发生错误是因为您没有使用正确的 End With 语句结束 With 段。 VBA 将 End 解释为结束 With 段，然后继续打开 2 个 Ifs 而没有关闭。