VBA判断单元格是否是数字

2025-02-22 21:59:11

推荐回答（2个）

回答1：

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

回答2：

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