我有一列(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
最佳答案
循环遍历有条件的单元格可以这样完成:
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...
中的父工作表是一种很好的做法。 .
关于excel - 检查单元格值是否为整数,如果不是则添加消息,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57116343/