如何检查Cell是否有整数？

Question

如何检查每个单元格上的特定列是否具有整数，并且如果它包含字符串，请将空白单元格插入有问题的行。

Answer 1

未经测试：

Dim row As Long 
Dim col As Long 

col = 4  ' Whatever column you want to check 

For row = 1 To 100  ' How many rows you want to check 
    If Not IsNumeric(Cells(row, col).Value) Then 
     ' Do whatever you want to do in this case 
    End If 
Next row 

如果你澄清你的意思是“插入一个空白单元格中的问题能排”，我会尝试更新我的解决方案。

Answer 2

您可以检查甚至与列不包含任何无号码一个forumla只检查

=COUNTBLANK(AAA:AAA)-COUNTBLANK(B:B)=COUNT(B:B) 

，我认为列AAA：AAA是空的。

Answer 3

混合其他答案以获取更大的数据。 它首先检查colomn是否只有数字，如果没有，检查位置。

Dim row As Long 
Dim LastRow As Long 
LastRow = Range("B" & Rows.Count).End(xlUp).Row 'if you want the colomn B 

If Excel.WorksheetFunction.CountBlank(Range("AAA:AAA")) - Excel.WorksheetFunction.CountBlank(Range("B:B")) = Excel.WorksheetFunction.Count(Range("B:B")) Then 
For row = 1 To LastRow  

    If Not IsNumeric(Range("B" & row).Value) Then 
     ' Do whatever you want to do in this case 
    End If 
Next row 
End if