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

总结

分享:

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

相关推荐
iFulling10 小时前
【计算机网络】第四章:网络层(上)
学习·计算机网络
香蕉可乐荷包蛋10 小时前
AI算法之图像识别与分类
人工智能·学习·算法
xiaoli232711 小时前
课题学习笔记1——文本问答与信息抽取关键技术研究论文阅读(用于无结构化文本问答的文本生成技术)
笔记·学习
人生游戏牛马NPC1号11 小时前
学习 Flutter (四):玩安卓项目实战 - 中
android·学习·flutter
LGGGGGQ12 小时前
嵌入式学习-PyTorch(7)-day23
人工智能·pytorch·学习
stm 学习ing12 小时前
Python暑期学习笔记3
笔记·python·学习
屁股割了还要学12 小时前
【C语言进阶】内存函数
c语言·开发语言·学习·算法·青少年编程
靴子学长13 小时前
Lotus-基于大模型的查询引擎 -开源学习整理
python·学习·自然语言处理
Littlewith14 小时前
Node.js:创建第一个应用
服务器·开发语言·后端·学习·node.js
ROOKIE Shawn14 小时前
mysql学习笔记
笔记·学习