vba如何动态选取单元格区域（ExcelVBA常用技巧之使用Activate方法选定单元格区域）

我们致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，一起成长为一样的经验达人。根据二八定律，学好这excel VBA，就能完成80%的工作。

使当前工作表成为活动工作表,还可以使用Activate方法选定单元格或单元格区域，如下面的代码所示。

#001 Sub RngActivate()

#002 Sheet3.Activate

#003 Sheet3.Range("A1:B10").Activate

#004 End Sub

代码解析：

RngActivate过程使用Activate方法选定Sheet3中的A1：B10单元格区域，Activate方法应用于Range对象时语法如下

expression.Activate

使用Activate方法选定单元格时，单元格所在的工作表也必需为活动工作表，否则Activate方法有可能出错，显示如图 2‑2所示的错误提示。

图 1 Activate方法无效提示

Range对象和Worksheet对象都有Select（选定）和Activate（激活）方法。其区别和联系如下： 一、从功能上来说，Select代表选定对象，Activate代表激活对象。 二、从数量上来说，Select可以选定多个对象，Activate只能激活一个对象。 三、对于单个对象，Select和Activate是一样的。 四、Activate的对象必定在Select对象之中。当选定了多个对象时，其中某个对象必定是激活的对象。在已经Select的对象中，可以任意指定Activate的对象。如果Activate了当前Select对象之外的对象，则相当于重新执行了一次Select并激活。 五、在每次重新Select之后，则系统会自动Activate其中的某个对象。 可以参考以下代码来体会之间的区别。 Sub Select和Activate的区别() On Error Resume Next Range("A1:A3").Select MsgBox "执行了Range(""A1:A3"").Select语句！" & vbCrLf & "当前选定了A1:A3" Range("A2").Activate MsgBox "执行了Range(""A2"").Activate语句！" & vbCrLf & "当前激活了A2。在选定的对象中，激活的对象可以切换。" Range("B1").Activate MsgBox "执行了Range(""B1"").Activate语句！" & vbCrLf & "当前激活了B1，相当于重新选定了B1" Range("B2").Select MsgBox "执行了Range(""B2"").Select语句！" & vbCrLf & "当前激活了B2，对于单个对象，选定和激活是相同的" Range("A1:A3").Activate MsgBox "执行了Range(""A1:A3"").Activate语句！" & vbCrLf & "语句会发生错误。无法同时激活A1:A3。相当于仅执行了一次选定。" Range("A3:B3").Select MsgBox "执行了Range(""A3:B3"").Select语句！" & vbCrLf & "重新选定了A3:B3。当前激活的对象变为A3" End Sub

小伙伴们，对于今天的使用使用Activate方法选定单元格或单元格区域，你学会使用了吗

如果你在工作中还需要设计其他的表格模板，都可以留言，我们会根据大家需求来整理相关的学习资料，目的只有一个，那就是学好Excel，提高工作效率！