excel 如何将三列数据自动转换三行一列为一组,如下图所示

Question

将图1自动转换成图2，序号，品名，数量，客户编号不用考虑

Answer 1

把你当前选中的区域，复制，粘贴到一个新sheet中，粘贴时选择转置。
在A4单元格输入=B1，右拉加下拉。最终，A列就是你要带 数据

Answer 2

假设在A---D列
复制到F列
Sub aa()Dim IFor I = 2 To Range("B65536").End(xlUp).Row N = Range("f65536").End(xlUp).Row Range(Cells(I, "b"), Cells(I, "d")).Copy Cells(N + 1, "f").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Next End Sub本回答被网友采纳

Answer 3

E1用公式：
=OFFSET(B$1,ROW(A3)/3,MOD(ROW(A1)-1,3))
下拉。追问

你这是单列的公式，我想要的是双列的公式

追答

假设一下公式：
=OFFSET($B$2,INT((ROW(A1)-1)/3)*2+COLUMN(A1)-1,MOD(ROW(A1)-1,3))
右拉一列，下拉。

Answer 4

假设在A---D列
复制到F列
Sub aa()Dim IFor I = 2 To Range("B65536").End(xlUp).Row N = Range("f65536").End(xlUp).Row Range(Cells(I, "b"), Cells(I, "d")).Copy Cells(N + 1, "f").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Next End Sub本回答被网友采纳

Answer 5

E1用公式：
=OFFSET(B$1,ROW(A3)/3,MOD(ROW(A1)-1,3))
下拉。追问

你这是单列的公式，我想要的是双列的公式

追答

假设一下公式：
=OFFSET($B$2,INT((ROW(A1)-1)/3)*2+COLUMN(A1)-1,MOD(ROW(A1)-1,3))
右拉一列，下拉。