我在做什么错

Question

sheet1.activate
activesheet.range(cells(2,"Q"),cells(40,"K")).select 'here the error occurs 
selection.copy

上面的代码适用于somtimes，有时会抛出一个错误，对象变量没有设置是什么意思？为什么上面的代码不起作用，如果我重新打开文件它再次工作，有时不。但我不知道它发生的原因。我在语法上有任何错误，如果是这样，请让我知道正确的方法。有没有更有效的方法来选择一组范围？除了以上？提前谢谢

Answer 1

此错误的原因通常是省略Set关键字，例如

Dim w as Worksheet
w = Sheet1 ' throws error 91
' Correct syntax: 
' Set w = Sheet1 

如果您告诉我们错误发生在哪一行，那么将会有更具体的答案。您的代码示例的语法看起来很好，但错误可能是由于代码中的另一行，可能未在您的问题中显示。

有没有更多“有效”的方法来选择范围？就个人而言，我不喜欢你展示的方法，字符串作为Cells的参数。字符串很乱，经常导致错误，从而导致工作效率下降。为什么不：

Sheet1.Range(Cells(2,18),Cells(40,11)).Select
' or
Sheet1.Cells(2,11).Resize(39,8).Select
' or
Sheet1.Range("K2").Resize(39,8).Select

或者，将K2：Q40定义为工作表中的命名范围，例如调用它“myRange”，并执行此操作：

Sheet1.Range("myRange").Select ' My personal favourite

但你为什么要使用Select？这通常不是必需的。只需写下：

Sheet1.Range("myRange").Copy

但是我可以问，你为什么要使用Copy，这本身就是一个混乱的方法？...