vba中 union方法如何使用

从字面来看，“union”具有“联合”之意，在实际的VBA程序应用中也与此相似，即：将两个或多个区域合并为一个区域进行一起操作。下面就举个简单的例子来讲解“union”的使用。

工具/原料

 

• 计算机
• Excel 2010

方法/步骤

 

1. 1

   电脑上面打开Excel表格，点击【开发工具】，【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。

   
2. 2

   在VBA编辑器上面点击【插入】，【模块】插入新的程序模块，也可以使用【Alt+I+M】组合键插入新的程序模块。

   
3. 3

   在代码窗口里面输入以下简单的代码，然后按下【F5】键运行程序。

   Sub MyUnion()

    

   '将Sheet1工作表定义为mysheet1

   Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")

    

   '单元格区域A2:C3，B5:D8的填充颜色为紫色

   Union(mysheet1.Range("A2:C3"), mysheet1.Range("B5:D8")).Interior.Color = RGB(255, 0, 255)

    

   End Sub

   
4. 4

   程序运行完成后，在Sheet1工作表界面上将会看到A2:C3，B5:D8的单元格区域被填充成紫色。

   
5. 5

   以上（第③步）的程序代码也可以写成如下的程序，然后按下【F5】键运行程序，将会得到一样的结果。

   Sub MyUnion()

    

   '将Sheet1工作表定义为mysheet1

   Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")

    

   '单元格区域A2:C3的填充颜色为紫色

   mysheet1.Range("A2:C3").Interior.Color = RGB(255, 0, 255)

    

   '单元格区域B5:D8的填充颜色为紫色

   mysheet1.Range("B5:D8").Interior.Color = RGB(255, 0, 255)

    

   End Sub

   

   
6. 6

   在使用“union”时，其最多只能对30个区域进行合并操作，即：union(区域1,区域2,区域3,……区域29,区域30)，否则将会出现“编译错误”的提示。

   
7. 7

   通过一个简单的例子进行对比，也能够加深对“union”的理解。在编写VBA程序代码时，可以根据实际需要选择合适的关键词和程序代码，遇到不易于理解的关键词可以通过帮助文件获取相关的帮助信息。

   
   END

注意事项

 

• 在VBA程序里面遇到一些不易理解的关键词，可以通过简单的例子应用求解，也可以通过帮助文件获取帮助。
• 个人经验，仅供参考。