vba学习系列(6)--将指定区域数据偶数列和奇数列分类汇总

系列文章目录

文章目录


前言

一、需求

将D2:CQ21,范围的数据,偶数列汇总到A列,奇数列汇总到B列;

二、使用步骤

1.引入库

代码如下(示例):

c 复制代码
Sub test()
for i = 4 To Range("AAA1").End(xlToLeft).Column
	If Cells(1, i) = "a" Then 
		arr = Range(Cells(2,i),Cells(21,i))
		r1 = Range("A655356").End(xlUp).Row + 1
		Cells(r1,1).Resize(UBound(arr),1) = arr
	Else
		brr = Range(Cells(2,i),Cells(21,i))
		r2 = Range("B655356").End(xlUp).Row + 1 
		Cells(r2,2).Resize(UBound(brr),1) = brr
	End If
Next
End Sub

总结

分享:

一个人要忍耐这样的羞辱,这本身就需要更大的勇气,当一个人的心中有种更高的目标去攀登时,他就不会在意脚下的泥泞,他才可能用最平静的方式去面对一般人难以忍受的痛苦;

相关推荐
2303_Alpha2 天前
SpringBoot
笔记·学习
萘柰奈2 天前
Unity学习----【进阶】TextMeshPro学习(三)--进阶知识点(TMP基础设置,材质球相关,两个辅助工具类)
学习·unity
沐矢羽2 天前
Tomcat PUT方法任意写文件漏洞学习
学习·tomcat
好奇龙猫2 天前
日语学习-日语知识点小记-进阶-JLPT-N1阶段蓝宝书,共120语法(10):91-100语法+考え方13
学习
向阳花开_miemie2 天前
Android音频学习(十八)——混音流程
学习·音视频
工大一只猿2 天前
51单片机学习
嵌入式硬件·学习·51单片机
c0d1ng2 天前
量子计算学习(第十四周周报)
学习·量子计算
Hello_Embed3 天前
STM32HAL 快速入门(二十):UART 中断改进 —— 环形缓冲区解决数据丢失
笔记·stm32·单片机·学习·嵌入式软件
咸甜适中3 天前
rust语言 (1.88) 学习笔记:客户端和服务器端同在一个项目中
笔记·学习·rust
Magnetic_h3 天前
【iOS】设计模式复习
笔记·学习·ios·设计模式·objective-c·cocoa