excel - 编辑一段代码后需要帮助修复 vba 错误 '1004'

Question

一些背景知识，我编写了一段代码，循环遍历目录中的所有工作簿并执行一个函数，该函数还执行另一个函数。这两个函数都测试得很好并且没有问题，直到我将它们放入通过所有工作簿的代码中。
我最初有这段代码并且没有任何问题:

Set tbl = shtOfErrors.UsedRange
tbl.Offset(2, 0).SpecialCells(2, 23).Select
Selection.Resize(, 3).Select

我试图摆脱原始函数中的所有 .select ，因为它在作为工作簿循环的一部分被调用时一直出错。但现在我在第 3 行收到错误 1004 应用程序定义或对象定义错误:

Set tbl = shtOfErrors.UsedRange
Set selrng = tbl.Offset(2, 0).SpecialCells(2, 23)
Set seltbl = selrng.Resize(, 3)

Answer 1

一种选择是:

Set tbl = shtOfErrors.UsedRange
Set tbl = Intersect(tbl, tbl.Offset(2, 0)).Resize(, 3).SpecialCells(2, 23)

应该做你想做的一切......(未经测试)

另外的选择:

Set tbl = shtOfErrors.Range("$2:$2", Rows(Rows.Count).Address).UsedRange.Resize(, 3).SpecialCells(2, 23)

第三种选择是:

Set tbl = shtOfErrors.UsedRange.Offset(2, 0).UsedRange.Resize(, 3).SpecialCells(2, 23)