我的代码正在填充顶部/标题行,但不应

时间:2019-07-23 15:32:47

标签: excel vba

我有代码设置了打印错误消息时不包括excel中第一行的范围。但是,似乎我的代码有错误,因为当我运行它时,它会在row 1中显示错误消息。

Sub Misc_box8()

  Dim cell As Range
  Dim lastRow As Long
  lastRow = Worksheets("1099-Misc_Form_Template").Range("N" & Rows.Count).End(xlUp).row

  For Each cell In Worksheets("1099-Misc_Form_Template").Range("N2:" & "N" & lastRow)
    If Not IsNumeric(cell.Value) Then
        cell.Offset(0, -13).Value = cell.Offset(0, -13).Value & ", Box 8 is not a number"
    End If
   Next

End Sub

要使错误消息不显示在row 1中。但是在row2中向last row展示,谢谢。

0 个答案:

没有答案