vba用数组如何把多列放到一列?
发布网友
发布时间：2022-04-23 21:39
共4个回答
热心网友
时间：2023-10-10 16:51
Excel怎样把多列的数据按列顺序转换成单列
热心网友
时间：2023-10-10 16:51
r2 = Cells(r1, "i").End(xlUp).Row
If r2 < 4 Then r2 = 4
r3 = [n1048576].End(xlUp).Row + 1
If r3 < 4 Then r3 = 4
Cells(r2, "i").Resize(r1 - r2 + 1, 1).Copy
Cells(r3, "n").Select
ActiveSheet.Paste
r1 = [k1048576].End(xlUp).Row
r2 = Cells(r1, "k").End(xlUp).Row
If r2 < 4 Then r2 = 4
r3 = [n1048576].End(xlUp).Row + 1
If r3 < 4 Then r3 = 4
Cells(r2, "k").Resize(r1 - r2 + 1, 1).Copy
Cells(r3, "n").Select
ActiveSheet.Paste
好久没写了，应当有可以简化的，另外实际上不用写2段，一般是用一个循环来处理。这个只是针对你的要求写的
热心网友
时间：2023-10-10 16:52
无须VBA，函数公式就可以做到，只是公式有点复杂，N4单元格公式=IFERROR(INDIRECT(TEXT(RIGHT(SMALL(IF(I$4:K$1000<>"",ROW(I$4:K$1000)*100+COLUMN(I:K)*1000001),ROW(A1)),6),"r0c00"),),"")
数组公式，需按Ctrl+Shift+Enter三键结束公式，使公式前后产生大括号{}后，下拉公式。 如图：（公式预设到第1000行，可自行修改）
热心网友
时间：2023-10-10 16:53
