移調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執行，如情況下移調一系列操作你不知道的公式。