2016-07-14 57 views
2

Before-After Picture移調2單元列到2分單元列快速

我一直在試圖兩個單元迅速推入後續列。我嘗試了轉置快捷方式,文本到列和其他編碼,但最快的方法是一遍又一遍地按Ctrl-X,Ctrl-V。

有沒有人有一個快速/簡單的解決方案?

+0

我會嘗試在VBA中編寫腳本。 – Kyle

+0

[示例數據爲圖片](http://meta.stackoverflow.com/questions/285551/285557#285557)通常不鼓勵,但那些手繪箭頭是爲了死。 – Jeeped

回答

2

快速公式:

(注意:這不會刪除現有的,但僅僅是在值複製)

將這個在B列旁邊的名字並複製了一列下來:

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

一些快速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]幾個圈。

+0

我還沒有學習VBA功能。我現在很基本。 IF聲明有所幫助。 – Paul

0

您還可以使用Kutools執行,如情況下移調一系列操作你不知道的公式。