VBA中阿拉伯数字如何表述？

方法一、判断单元格的数据类型

typename结果为Double的就是数值单元格

追问

你这个写成IF语句怎么写

追答

你的某个单元格是什么变量表示了，我假设是cells(x,y)吧：
if vartype(cells(x,y))=vbDouble then rows(x).selection

本回答被提问者采纳

如果单元格很多的话，可以用union先把所有数字单元格收集起来，最后一次选中，如果只是一个单元格的话，选中之后马上退出循环就可以了
Sub test11()
Dim c As Range
Dim Uni As Range
For Each c In ActiveSheet.UsedRange
If IsNumeric(c.Value) Then
If Uni Is Nothing Then Set Uni = c Else Set Uni = Union(Uni, c)
End If
Next
Uni.EntireRow.Select
End Sub