Excel 如何在每一列之間貼上一個列

要用VBA

Dim i As Long

For i = 2 To 5

ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight

Next

End Sub

不過,要自己加番頭果一行,個 5係你想要既數目黎

原本的123456是放在多少格內
結果的10203040506是放在多少格內, 是否一定要在原位擴展而成?
原數據之下是否有嘢?
是否有大量資料須要相同處理，如是, 位數是否一致?
如題用貼上, 會是一個相當枯燥的解決辦法

圖片參考：https://s.yimg.com/lo/api/res/1.2/1IvNJAhx5xVGGPio3fauNg--/YXBwaWQ9dHdhbnN3ZXJzO3E9ODU-/http://1.bp.blogspot.com/-GmPOr1fN4t4/VAQmLm6euII/AAAAAAAAAx4/Osjj5ZlRk6E/s1600/2014-09-01%2B15_48_03-Microsoft%2BExcel%2B-%2B%E6%B4%BB%E9%A0%81%E7%B0%BF1.jpg



紅色為新加的部分，
用 formula 建立 index row，
用 index row 列排序，column 就會如你想要那樣重排。


2014-09-01 15:59:52 補充：
http://1.bp.blogspot.com/-GmPOr1fN4t4/VAQmLm6euII/AAAAAAAAAx4/Osjj5ZlRk6E/s1600/2014-09-01%2B15_48_03-Microsoft%2BExcel%2B-%2B%E6%B4%BB%E9%A0%81%E7%B0%BF1.jpg

到現在Excel 還沒有這個快速功能，如果是要插入列，就再旁邊列的數字按右鍵再按插入。

要是想要複製同一列的東西，把十字(箭嘴)貼近單元格的右下角，當十字被填滿黑色，向下拉，下面就會出現一樣的東西了