展开全部
假设在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
复制到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))
下拉。
=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))
右拉一列,下拉。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |