excel - VBA错误处理选择动态单元格范围

Question

阅读线程Excel VBA - select a dynamic cell range

我还有一个问题要补充您的答案，如果发现没有范围(没有找到所需的动态范围)，我们将如何处理该错误以使它执行其他操作？

在我的待办事项 list 中有很多关于错误处理的知识!!

我非常感谢任何建议。

谢谢!

Answer 1

我不同意先前问题的答案。是的，它们为“我如何做X？”问题提供了很好的答案，但没有人补充说您不应该做X。

我知道宏记录器会大量使用“选择”功能，但是宏会在用户操作发生时对其进行记录。它不知道用户的意图，因此无法创建良好的VBA。选择更好，更快，更容易理解的范围始终是VBA的替代方案。也许我应该总是说几乎是，因为在模糊的情况下，选择可能是更简单的解决方案。

例如，您可以选择一个范围，然后将其粘贴到其他位置，但是我发现以下内容更易于编码和理解:

range.Copy Destination := Cell

好吧，我将把我的业余爱好放回橱柜中，并回答您的问题。

Dim Rng As Range

Set Rng = expression returning a range

' Examples from question
Set Rng = Range("A1:M1")
Set Rng = Range(Cells(1,1),Cells(1,Columns.Count).End(xlToLeft))
Set Rng = Range("A1:" & Cells(1, i).Address)
Set Rng = Range(Cells(1, Col1), Cells(1, Col2)) 

If Rng Is Nothing Then

  ' Code to handle situations where range does not exist

Else

  ' Code to handle situations where range does exist

End If