需要隔列或隔行插入空列空行的情況似乎很少見，但是今天辦公室的妹子突然問起。
我說：“按住ctrl隔列或者隔行選然後插入啊。”
“麻煩！”她是一臉不屑。
“首行或者首列插入數值排序啊。”我無奈。
“插入多行多列豈不是要弄很多，煩！”妹子一向是很懶的。
“好吧，寫個VBA吧。”我無奈。
於是就有了下面這個VBA的誕生。
工具/原料
硬件：電腦
軟件：Office Excel（這裡用的是Office Excel2013版）
方法/步驟
先來說插入列的問題，可以看到有20列，想要隔列插入空列，即1234...變成1 2 3 4...，前兩種方法給妹子鄙視了，現在就只能用VBA了。
打開Excel後按Alt+F11，打開VBA編輯窗口，在sheet1（sheet1）處雙擊以打開代碼編輯窗口，然後再該窗口輸入代碼。
這個是控制插入列的代碼（我在這裡給加點註釋，直接複製也沒有關係）：
Sub 插入空列()
For i = 1 To 20 '20即插入20列
Cells(1, 2 * i).Select '(1,2*i)即在第1行，2*i列處插入
Selection.EntireColumn.Insert 'EntireColumn 列
Next i
End Sub
現在運行一下（看到一個綠色的小三角沒有，就是它，按它）來看一下效果，可以看到1234...變成1 2 3 4...，表示可以了，如果需要插入多列的話修改一下上圖用紅框框注的幾個值就可以了。不難，自己研究了。
這個是控制插入行的代碼（我在這裡就不加註釋了）：
Sub 插入空行()
For i = 1 To 10
Cells(2 * i, 1).Select
Selection.EntireRow.Insert
Next i
End Sub
現在運行一下來看一下效果，可以看到第一列的1234...變成1 2 3 4...，，如果需要插入多行的話修改一下值就可以了，這裡也不多解釋了。
注意事項
隔行插入列或行的方法不止一種，但是vba這種只需修改下值幾乎通用。
如果要插入的不多，建議使用簡介裡的那兩種方法