将单元格联合起来——Union方法
发布时间:2022-10-14 16:51:23
当我们需要对工作表中不同的区域进行某一操作时,可以使用Application对象的Union方法先将这些区域合成一个区域,然后对这个合成的区域统一操作。
如下图所示,工作表中有三个单元格区域:A1:B2、C4:D5、E8:F9。
我们要将单元格区域A1:B2和E8:F9的字体设置为红色。根据前面所学的知识,我们可以使用下面的代码实现:
Range(“A1:B2”).Font.ColorIndex =3
Range(“E8:F9”).Font.ColorIndex =3
现在,我们使用Union方法来实现:
Union(Range(“A1:B2”),Range(“E8:F9”)).Font.ColorIndex = 3
为方便理解,将上面的代码分开表示(参考代码中的注释来理解):
Sub testUnion3()
Dimrng As Range ‘设置单元格对象变量
‘将单元格区域A1:B2和E8:F9合成一个单元格区域
Set rng = Union(Range(“A1:B2”),Range(“E8:F9”))
‘将合成的区域中的字体颜色设置为红色
rng.Font.ColorIndex = 3
End Sub
Union方法的语法为:
Application.Union(参数1,参数2,……,参数30)
其中:
Application表示工作簿应用程序对象(顶层对象),可以省略。
参数1,参数2,……,参数30表示单元格对象(Range对象),最少指定2个代表单元格对象的参数,最多30个。
查找并返回多个单元格
在《Excel VBA解读(41):藏得再好也能找到——使用Find方法实现查找》中,我们初步介绍了使用Find方法查找含有特定内容的单元格,并介绍了使用FindNext方法和FindPrevious方法实现连续查找。通过学习,我们知道要使用Find方法找到含有特定内容的所有单元格,只能与FindNext方法或FindPrevious方法配合。
如果结合使用Union方法,可以动态地再增加单元格,从而找到所有的单元格。
本例中,我们仍然使用该工作表。查找工作表中单元格内容为1的所有单元格。代码如下:
Sub testUnion4()
Dim rng As Range ‘声明对象变量
Dim firstRng As String ‘声明字符串变量用来存放变量地址
Dim rngAllFound As Range ‘用于存放所有找到的单元格
‘将查找到的第一个单元格赋值给变量
Set rng =Range(“A1:D3″).Find(What:=”1”, LookIn:=xlValues)
‘判断是否找到了单元格
If Not rng Is Nothing Then
‘若找到,则将其地址保存到变量中
firstRng = rng.Address
‘将找到的单元格添加到存放单元格区域的变量中
Set rngAllFound = rng
Do
‘查找下一个单元格
Set rng =Range(“A1:D3″).FindNext(After:=rng)
‘如果找到的单元格不是最先找到的单元格,则将其存放在单元格区域变量中
If rng.Address <> firstRngThen
Set rngAllFound =Union(rngAllFound, rng)
End If
Loop Until rng.Address = firstRng
End If
‘显示找到的单元格地址
firstRng = ” ”
For Each rng In rngAllFound
firstRng = firstRng & rng.Address& ” ”
Next rng
MsgBox “内容为1的单元格在:”& firstRng
End Sub
运行代码后的结果如下图所示:
代码中使用Union方法找到满足条件的所有单元格,然后可以方便地进一步处理这些单元格。
猜你喜欢
- Word文档是好用的办公软件之一,很多上班族都会使用Word文档来排版和保存文字,但是最近有Win 1020H2用户说自己将编辑好的Word
- 如果我们在编辑一个word文档的时候,需要对某一个地方进行标注,我们可以使用word中的批注功能,word批注功能就是由批注标记、连线以及批
- 考试结束,老师们都要对学生的考试成绩进行分析。各分数段人数的统计是其中一项必做的工作。在Excel中,怎样快速准确地统计分数段人数呢?以下的
- 我们在使用电脑的时候,有的时候可能会有共享打印机、共享文件的需要。很多小伙伴还不是特别清楚共享文件、共享打印机的设置方法,下面小编就给大家一
- 1、启动WPS文字,随便打开一篇文档,以便演示。可以看到三国杀游戏规则几个字是宋体小二格式的。 2、选中这些字,点
- 在排版时, 我们要设置段落的格式如缩进,段落间距,对齐方式等,我们除了 可以通过段落工具来调整外,可以使用段落对话框来准备调整段落格式和对齐
- 1.选择需要进行限制数据的单元格,这里实例选择的是A列,限制用户只能输入A或B或C,然后点数据--数据有效性--数据有效性,会弹出数据有效性
- 最近打开word总是提示:无法初始化Visual Basic环境该怎么办?虽然不影响使用,但是每次打开都弹出来也挺烦人的,该怎么解决这个问题
- 许多使用Windows系统的用户Werfault.exe文件应用程序错误,无法正常打开应用程序,情况如何?实际上,我们只需要打开window
- 在我们平时的工作生活中,经常需要用手机拍摄很多我们想要拍摄的照片。而对于一些照片中的资料,我们往往需要将其转换成Word文档,而WPS就提供
- Word的字体数量十分庞大,而且从2010版本开始,Word提供了即时预览的功能,也就是说我们在选择字体之前,可以随着鼠标的移动即时显示预览
- word中怎么插入另外一个word文档?有有些小伙伴在制作文档的时候,可能需要用到多个文档进行配合制作,今天小Q来给大家演示一下,插入Wor
- 方法1:在“段落”对话框设置段落缩进用户可以在Word2013的“段落”对话框中设置段落缩进,操作步骤如下所述:第1步,打开Word2013
- Word2007字数统计方法和快捷键方法一切换到“审阅”选项卡,在“校对”组中单击“字数统计”按钮,弹出的对话框中有关于字数统计的信息,直接
- 当我们使用安装了win10操作系统的计算机时,由于系统出了问题,有些小伙伴可能会失败。或是卡顿的情形,系统地重组。那麽为win10最简洁的系
- 很多用户在网络出现异常时会重新设置网络,但很多用户都遇到了没有网络适配器的情况,这给操作带来了困难。如何解决这个问题?让我们看看解决方案。w
- 给word设置密码,不仅可以防止别人乱修改我们的文档,也能是我们的文档更加安全。现在,我以word 2003为例,给大家讲讲word设置密码
- 在word文档中设置一个很好看到页眉、页脚,一篇文章顿时出彩,下面小编就为大家详细介绍word添加和设置页眉方法,不会的朋友可以参考本文,来
- 和大家分享一个新型抽奖方式:使用Excel做个年会抽奖器公司开年会,现场举行一次抽奖环节,要从50个人中,抽取10个幸运者,要求每个姓名只能
- 这篇教程是向脚本之家的朋友详解word2003文档结图构设置技巧,教程很不错,推荐过来,喜欢额朋友可以跟着教程一起来学习吧 &nb