Question

VBA判断单元格是否是数字

本人有一组上千个数字的资料。但在录入数据的时候，有些单元格不是按数字录入的。现在统计上出了问题。如图所示，有一个单元格中为“得到”文字，不是数字。我希望能够通过VBA代码来判断每一个单元格，如果不是数字的单元格，那么该单元格就以红色填充。这段代码最好能够以数组实现。

另外，我自己编程了一个，可是不知道错在哪。请告诉指导
Sub 判断是否是数字()
Dim RowN As Long '行号
Dim ColumnN As long '截尾日期
For RowN = 2 To Cells(Rows.Count, "A").End(xlUp).Row
ForColumnN = 1 To Range("A2").End(xlToLeft).Column
If IsNumeric (Cells(RowN,ColumnN).Value) Then
Cells(RowN, ColumnN) = Cells(RowN, ColumnN)
Else
Cells(RowN, ColumnN) = Cells(RowN, ColumnN)
Cells(RowN, ColumnN) .Interior.ColorIndex =3
End If
Next ColumnN
Next RowN
End Sub

Answer 1

两个地方有问题：
1、对列的循环，end的参数应为"xltoright"
2、对条件的判断。只要单元格里的字符是数字，isnumeric函数都会判断为“真”，它不会管你单元格是“数值”，还是“文本”。应先用typename函数判断单元格的类型，如果不是数值，再用isnumeric函数判断单元格值的字符是否是数字，如果是数字，将其转化为数值，如果不是数字，就按你的需要进行处理。

追问

能不能帮忙编程一下。非常感谢

追答

176991316兄的代码很已经简捷了，借用一下。

dim rng as range
for each rng in activesheet.usedrange
    if not isnumeric(rng) then '如果单元格的字符不是数字，则直接标红
        rng.interior.colorindex=3
    else '是数字，则将单元格值修正为数值，当然你也可以修正为文本
        rng.value=val(rng.value)
    endif
next rng

Answer 2

代码略长啊，用for each在usedrange中循环就可以吧。
dim rng as range
for each rng in activesheet.usedrange
if isnumeric(rng) then
rng.interior.colorindex=3
next rng