vba - 从 Excel 中查找并替换单词。应用程序定义或对象定义的错误

Question

Set rng = ws.Range("A1", ws.Range("A1").End(xlDown))
For each cl in rng

出现运行时错误“1004”:

Application-defined or object-defined error in 
**Set rng = ws.Range("A1", ws.Range("A1").End(xlDown))**

请帮忙

Answer 1

我怀疑您没有设置对 Excel 对象库的引用，在这种情况下 xlDown 没有值。要么使用:

Set rng = ws.Range("A1", ws.Range("A1").End(-4142))

或者，最好在模块顶部自己定义常量:

Const xlDown as Long = -4142