快速将2细胞行转换为2细胞列
我一直在试图快速推入两个单元格后续列。 我尝试转置快捷方式，文本到列，和其他编码，但最快的方法是一遍又一遍的Ctrl-X，Ctrl-V。
有没有人有一个快速/简单的解决scheme？
一个快速的公式：
（注意，这不会删除现有的，而只是复制这些值。）
把它放在第一个名字旁边的B列中，然后复制一列和下：
=IF(MOD(ROW(1:1)-1,4)=0,INDEX($A:$A,ROW()+COLUMN(A:A)),"") 一些快速的VBA会是这样的，
dim rw as long with activesheet for rw=315 to .cells(rows.count, "A").end(xlup).row step 4 .cells(rw, "A").offset(-1, 1).resize(1, 2) = application.transpose(.cells(rw, "A").resize(2, 1)).value .cells(rw, "A").resize(2, 1).clearcontents next rw end with
用[F8]进行几个循环，当您满意时，将光标放在End With然后点击[ctrl] + [F8]。
您还可以使用Kutools来执行操作，例如在不知道公式的情况下移调范围。