【Excel VBA】超级Range——Union的用法，提高效率的必备函数

最新推荐文章于 2024-06-28 16:42:26 发布
最新推荐文章于 2024-06-28 16:42:26 发布
阅读量7.4k 收藏 12
点赞数 1
分类专栏： VBA 文章标签： excel vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ppzgghgzshpph/article/details/117266655
版权
本文介绍了在大量数据处理中，如何利用Excel VBA的Union函数来快速删除无用页头、空行等，提高工作效率。对比了传统逐行删除和使用Union函数的两种方法，强调在大数据量情况下，Union方法的优势。并提供了代码示例，供读者参考和学习。
摘要由CSDN通过智能技术生成

纲举目张

说明

作为一名优秀人才，总是能碰到最复杂的情况，就比如下面的图片中的数据情况：
复杂数据情形
图中姓名等信息均为虚构，不存在泄露个人信息问题。看着如此数据情形，要将无用的页头、空行等删除，你会怎么操作呢？手动删除？这里我只胡编了45行数据，可是如果实际中有一千行、一万行甚至近十万行的数据呢？使用Excel VBA操作当然是又准确又高效了。
第一种方式是：1、首先获取最后一行数据所在行数；2、从最后一行开始到第一行逐行检查是否是有效数据行，如果不是则整行删除；3、运行的结果就仅剩有效数据了。这种方式对于数据量不是很大的情况，运行的时间还是比较短的，但是我在实际运行中数据行数在5千以上的时候就会很慢，有时候我会认为死机了。
第二种方式是：1、首先获取最后一行数据所在行数；2、从第一行开始到最后一行逐行检查是否是有效数据行，如果不是则使用Union函数将无效数据行联合起来；3、选中联合起来的区域，执行删除。这种方式相对于第一种方式简直是神速。看代码：

代码code


                

                
                
        

        

    

  


        

            

                    
                      最低0.47元/天 解锁文章
                        
                    
            

        

    

      

        

            

              
                
                  碰碰虎
                
              
            

            

                关注
              
            

        

        

          
      

      

            

                专栏目录
          









                



	

		

			

				
					
VBA学习笔记之Union方法

				
			

			

				

					aiyin1399的博客
				

				

					09-01
					
					3409
					
				

			

		

		

			
				
'Application.Union 方法'返回两个或多个区域的合并区域'Sub test()Range("a1:b3,c5:d8").Select '文本地址引用方式Union([a1:b3], [c5:d8]).Select '单元格区域引用方式End Sub'小结：虽然range也可以完成多区域的引用'但文本地址的引用方式最多不能超过256个字符'而union却没有这个限制Unio...

			
		

	



                

              
                



	

		

			

				
					
的union_「VBA入门必备」Intersect方法/Union方法/End属性

				
			

			

				

					weixin_39640845的博客
				

				

					12-14
					
					2011
					
				

			

		

		

			
				
先抛出问题：VBA中该如何获取某列所有已使用的单元格？这里直接给出常用语句：Sub 选中A列已使用内容()Intersect(ActiveSheet.UsedRange, Columns(1)).SelectRange("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row).SelectEnd Sub分别用到了两个知识点：■Intersect方法■End属...

			
		

	



                


  
              

                


	

		

			

				
					
VBA union 用法

				
			

			

				

					weixin_30656145的博客
				

				

					07-10
					
					1375
					
				

			

		

		

			
				
union中必须是对象.所以这种写法必须先让一个变量定义为具体的对象
Set ran = Rows(cc(1)）
For i = 2 To ySet ran = Application.Union(ran, Rows(cc(i)))Next iran.Select

转载于:https://www.cnblogs.com/Young-shi/p/11164629.html...

			
		

	





	

		

			

				
					
vba：union方法 并集

				
			

			

				

					pgymeitianjinbu的博客
				

				

					04-03
					
					1247
					
				

			

		

		

			
				
'Application.Union 方法'返回两个或多个区域的合并区域Sub test()Range("a1:b3,c5:d8").Select '文本地址引用方式Union([a1:b3], [c5:d8]).Select '单元格区域引用方式End Sub'小结：虽然range也可以完成多区域的引用'但文本地址的引用方式最多不能超过256个字符'而union却没有这个限制'我们经常利用变量与union进行单元格的连接Sub 连接符单元格连接()

			
		

	



		

			
		



	

		

			

				
					
VB6中使用excel VBA的union方法

				
			

			

				

					Excel工作圈的博客
				

				

					11-26
					
					2386
					
				

			

		

		

			
				
在Excel VBA中union方法可以连接多个range单元格对象，在批量重复操作中非常实用。
 例如，需要指定位置批量删除、批量插入单元格，可以union(range1,range2,range3,.....)
 以上VBA写法通过循环可以进行简化，提高处理速度：

Sub 宏3()
    Dim rg As Range
    For i = 1 To 1000 Step 2
        If rg Is Nothing Then
            Set rg = Cells(i, 1)

			
		

	





	

		

			

				
					
vba union用法疑问

				
			

			

				

					q845581895的博客
				

				

					10-12
					
					528
					
				

			

		

		

			
				
当我在使用union的时候，我选中1、2、3、4、6、7、8列的单元格，并把union后的内容放到一个range里，然后用把这个range内容放到一个数组x中，但是我运行发现，此时数组x中只有1、2、3、4列内容，剩下的数组x中没有；此时如果我选中的单元格是1、2、3、4、5、6、7（连续的），数组中都有了，这是为什么？

			
		

	





	

		

			

				
					
13 excel vba 多个区域选择 union range

				
			

			

				

					haixinghua1的博客
				

				

					07-26
					
					1461
					
				

			

		

		

			
				
用 Union 方法可将多个单元格区域组合到一个 Range 对象中。

			
		

	





	

		

			

				
					
Excel-VBA宏编程实例源代码-使用不连续的函数进行运行.zip

				
			

			

				

					12-14
				

			

		

		

			
				
总的来说，通过学习和理解这个VBA宏实例，我们可以掌握如何在Excel中有效地使用不连续函数，从而提高数据分析和处理的效率。这不仅适用于办公自动化，也适用于任何需要处理大量数据和执行复杂逻辑的场合。对于VBA...

			
		

	





	

		

			

				
					
Excel VBA Range单元格操作实例

				
			

			

				

					qq389445046的博客
				

				

					02-16
					
					6063
					
				

			

		

		

			
				
四、Range操作
4.2取得最后一个非空单元格
xlDown/xlToRight/xlToLeft/xlUp
Dim ERow as Long
Erow=Range("A" & Rows.Count).End(xlUp).Row

4.3 复制单元格区域
注意：使用PasteSpecial方法时指定xlPasteAll（粘贴全部），并不包括粘贴列宽
Sub CopyWithSameCol...

			
		

	





	

		

			

				
					
多条件查询指定数据_excel_ExcelVBA_excel多条件_

				
			

			

				

					10-01
				

			

		

		

			
				
ExcelVBA（Visual Basic for Applications）则为这项任务提供了强大的自动化工具，使得我们可以自定义函数或宏来实现复杂的查询功能。下面将详细介绍如何在Excel中使用VBA进行多条件查询。  首先，我们需要了解Excel...

			
		

	





	

		

			

				
					
Excel VBA实战技巧：Range对象与单元格操作

				
			

			

				

					
				

			

		

		

			
				
1-1 **使用Range属性**：Range是Excel VBA中用于引用单元格或单元格区域的主要方法。例如，`Range("A1")` 将选择工作表中的A1单元格。  1-2 **使用Cells属性**：Cells属性允许通过行索引和列索引来引用单元格，如 `...

			
		

	





	

		

			

				
					
VBA中 Range 函数

				
			

			

				

					m0_74737305的博客
				

				

					10-09
					
					1万+
					
				

			

		

		

			
				
Range函数是VBA中非常强大且多功能的函数，对于Excel数据的操作和管理起着至关重要的作用。熟练掌握它将帮助您更有效地自动化Excel任务和数据处理。

			
		

	





	

		

			

				
					
Excel 宏录制与VBA编程 ——VBA编程技巧篇一 (Union方法、Resize方法、Cells方法、UseSelect方法、With用法)

					
最新发布

				
			

			

				

					wx微信公众号“码农总动员”，获取更多编程知识
				

				

					06-28
					
					623
					
				

			

		

		

			
				
Excel 宏录制与VBA编程 ——VBA编程技巧篇一 (Union方法、Resize方法、Cells方法、UseSelect方法、With用法)

			
		

	





	

		

			

				
					
Python-VBA函数之旅-range函数

				
			

			

				

					ygb_1024的博客
				

				

					05-08
					
					1188
					
				

			

		

		

			
				
range函数

			
		

	





	

		

			

				
					
UNION 的用法总结

				
			

			

				

					小猪的成长专栏
				

				

					10-10
					
					1223
					
				

			

		

		

			
				
 UNION运算符可以将两个或两个以上上SELECT语句的查询结果集合合并成一个结果集合显示，即执行联合查询。UNION的语法格式为:  select statementunion [all] select statement[union [all] select statement][...n] 其中selectstatement为待联合的SELECT查询语句。A

			
		

	





	

		

			

				
					
【vba】【excel】 range的简单用法

				
			

			

				

					weixin_61256014的博客
				

				

					01-18
					
					1406
					
				

			

		

		

			
				
' 设置单元格值' 复制单元格值' 清空单元格。

			
		

	





	

		

			

				
					
vba的if条件函数和range用法超详细介绍

					
热门推荐

				
			

			

				

					qq_42539251的博客
				

				

					07-08
					
					1万+
					
				

			

		

		

			
				
Range的用法：

下面是常见的比较基础的range的用法，想要学习更多用法可自行查资料或者私信我！

1.选择A1单元格，不做任何操作


SubrangeTest()    Range("a1").SelectEndSub

2.选择A1单元格，并且赋值“I am a1”


SubrangeTest()    Range("a1") ="i am a1"EndSub

3.选择A1到C5单元格，不做任何操作

选择A1到C5有两种写法，逗号分隔是一种，还有冒号...

			
		

	





	

		

			

				
					
VBA提高篇_16 传递Range提升自定义函数,巧用属分辨公式型内容

				
			

			

				

					pigerr的博客
				

				

					02-03
					
					1080
					
				

			

		

		

			
				
Sub demo() Dim w As Worksheet 's和, w 表格, r 单元格, r1 子单元格 For Each w In Worksheets。

			
		

	





	

		

			

				
					
union函数合并组数

				
			

			

				

					FreeIce   ----"菜鸟"-"大神"华丽的分割线！
				

				

					01-04
					
					624
					
				

			

		

		

			
				
array_merge当然可以合并多条数组  但是SQL语句太过于繁杂  推荐用union 
看效果
<?php
$a = array("a" => "PHP", "b" => "SQL");
$b = array("a" => "AAA", "b" => "BBB", "c" => "CCC");

$c = $a + $b; // Union of $a and $b
echo "Unio

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  





	
打赏作者

	

		

		
			
		
		

		

			
碰碰虎

			
20年挑灯夜战秃了头，有赏！

		

	

	

			

	

	

    ¥1
    ¥2
    ¥4
    ¥6
    ¥10
    ¥20
	

	

		

			

				

					扫码支付：¥1
				

				

					

					
					获取中
					

				

				

					
					
					扫码支付
				

			

		

		

			
您的余额不足，请更换扫码支付或充值

			
打赏作者

		

	



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值