vba中 union方法如何使用

2024-10-13 20:23:55

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

3、在代码窗口里面输入以下简单的代码，然后按下【F5】键运行程序。Sub MyUnion()'将Sheet1工作表定义为m烤恤鹇灭ysheet1Set 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

5、以上（第③步）的程序代码也可以写成如下的程序，然后按下【F5】键运行程序，将会得到一样的结果。Sub MyUnion()'将Sheet1工作表定义为mysheet1Set m烤恤鹇灭ysheet1 = 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、在使用“union”时，其最多只能对30个区域进行合并操作，即：union(区域1,区域2,区域3,……区域29,区域30)，否则将会出现“编译错误”的提示。