excel - Access VBA Excel : Formatting Excel and Range Application/Object error

Question

我一直在寻找解决方案一段时间，我发现有时解决方案有效，但大多数时候代码停止工作或导致错误。非常令人沮丧...

这是代码片段，失败的行是我尝试使用 xldown 和 xlright 函数选择范围的地方，但我似乎无法正确使用语法，或者我遇到了对象错误。请帮助-如有必要，我将提供更多代码。

        With ws
'            LastRow = .Range("S" & .Rows.Count).End(xlUp).Row
        lRow = .Range("S" & .Rows.Count).End(xlUp).Row
        lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
'            .Range("S2:" & .Range("Z" & LastRow)).Select
        Set rng = .Range("S2", Range("S2").End(xlToRight)).Select

如您所见，我已经尝试了几件事-我已经删除了一些选项。我已经在 with 语句内部和 with 语句外部尝试过。仍然失败。谢谢!

Answer 1

尝试:

ws.Range("S2").CurrentRegion.Select

如果您要选择的范围是连续的，这将起作用。

(你能张贴一张你的工作表可能是什么样子的模型，而不是试图描述它吗？)