VBA中Do循环的运行时错误

我刚刚编写了一个VBA脚本来在Excel中执行批量查找和替换。我需要对超过150000个单元格的数据执行此功能。我使用Do循环将表a上的值与表B上的查找值和相关代码替换值进行比较

我使用一个声明为Dim I as Integer的索引计数器，并使用一个Do循环控制索引的每次迭代。VBA脚本可以工作，但我收到一个运行时错误“6”：一旦索引超过30000，就会出现溢出错误消息？您可以迭代Do循环的次数是否有限制，或者是否有人知道在Excel中执行批量查找和替换的好方法？

试试这个

ActiveSheet.Cells.ReplaceoldValue、NewValue、xlPart

单元格包含工作表中的所有单元格

---

希望这有帮助

我应该说得更清楚些。替换的背后有一些逻辑。工作表A包含150000行数据，其中一列是字母数字代码。表B包含将这些代码转换为更有意义的代码的列表。我编写了一个宏，它获取工作表a上的每一行，在工作表B上找到翻译代码，然后将其交换出去。有250个代码的可能性，否则我会做一个简单的嵌套如果公式。