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

系列文章目录

文章目录

• 系列文章目录
• 前言
• 一、需求
• 二、使用步骤
• • 1.引入库
• 总结

前言

一、需求

将D2：CQ21，范围的数据，偶数列汇总到A列，奇数列汇总到B列；

二、使用步骤

1.引入库

代码如下（示例）：

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 

总结

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