系列文章目录
文章目录
前言
一、需求
将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
总结
分享:
一个人要忍耐这样的羞辱,这本身就需要更大的勇气,当一个人的心中有种更高的目标去攀登时,他就不会在意脚下的泥泞,他才可能用最平静的方式去面对一般人难以忍受的痛苦;