如何把excel多列变成一列，每列的数据不一样

2024-12-26 21:28:21

推荐回答（4个）

回答1：

Sub kk()

Dim i, j, k, l

k = 1

For i = 1 To 3

For j = 1 To Cells(65536, i).End(3).Row

If Cells(j, i) <> "" Then

Cells(k, 5) = Cells(j, i)

k = k + 1

End If

End Sub

回答2：

这是分列的逆过程啊，目前没有找到合适的方法，而且加了顿号系统就已经默认为文本处理了。如果工作量不是特别大的话，建议手动处理

回答3：

可以啊，选中B列的那些内容，直接剪切，再粘贴到A列下面，C列同理

回答4：

D1公式：
=OFFSET(A$1,MOD(ROW(A4),4),INT(ROW(A4)/4)-1)&""
下拉。