移调2单元列到2分单元列快速

Question

我一直在试图两个单元迅速推入后续列。我尝试了转置快捷方式，文本到列和其他编码，但最快的方法是一遍又一遍地按Ctrl-X，Ctrl-V。

有没有人有一个快速/简单的解决方案？

Answer 1

快速公式：

（注意：这不会删除现有的，但仅仅是在值复制）

将这个在B列旁边的名字并复制了一列下来：

=IF(MOD(ROW(1:1)-1,4)=0,INDEX($A:$A,ROW()+COLUMN(A:A)),"") 

Answer 2

一些快速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]几个圈。

Answer 3

您还可以使用Kutools执行，如情况下移调一系列操作你不知道的公式。