MS Excel VBA查找字符串值为

Question

我很难找到在超过4,000行的列中查找和替换字符串值的最佳方法，其中值应为数字。

客户收集多个工作簿并希望合并它们。我有这个工作，但一个特定的列应该是一个数值，但有时报告系统将在该列中转储一个无关的字符串字符。

以下是我现在正在使用的VBA

For Each r in rng
if not IsNumeric(r.value2) then r.value=null
Next r

可以想象，这个for / next循环需要一段时间才能运行。必须有一个更好的方法来处理这个问题。任何帮助将不胜感激。

谢谢你， 佛瑞德

PS：我玩过.Find和.Replace，却无法让它们发挥作用。

Answer 1

尝试使用specialcells功能

on error resume next 'in case there are no string cells
rng.specialcells(xlCellTypeConstants,2).clear
on error goto 0