如何檢查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