excel - 检查单元格值是否为整数，如果不是则添加消息

Question

我有一列(col G)，我想在其中验证值是否为数字。如果它们不是数字，我想在 col A 中粘贴一条错误消息。运行我的代码时我没有收到任何错误，但即使单元格中有一个数字，它似乎也会打印错误消息。

Dim cell As Range
Dim lastRow As Long
lastRow = Range("G" & Rows.Count).End(xlUp).row

For Each cell In Range("G2:" & "G" & lastRow)
If IsNumeric(Range("G2:" & "G" & lastRow)) = True Then cell.Offset(0, -6).Value = cell.Offset(0, -6).Value & ", G is not a number"
Next
End Sub

Answer 1

循环遍历有条件的单元格可以这样完成:

Sub TestMe()

    Dim cell As Range
    Dim lastRow As Long
    lastRow = Worksheets(1).Range("G" & Rows.Count).End(xlUp).Row

    For Each cell In Worksheets(1).Range("G2:" & "G" & lastRow)
        If IsError(cell) Then
            cell.Offset(0, -6).Value = cell.Address & " is error!"
        ElseIf Not IsNumeric(cell.Value) Then
            cell.Offset(0, -6).Value = cell.Value & " is not a number"
        End If
    Next

End Sub

引用 Worksheets(1).Range... 中的父工作表是一种很好的做法。 .