把你当前选中的区域，复制，粘贴到一个新sheet中，粘贴时选择转置。
在A4单元格输入=B1，右拉加下拉。最终，A列就是你要带 数据
假设在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
E1用公式：
=OFFSET(B$1,ROW(A3)/3,MOD(ROW(A1)-1,3))
下拉。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024