4418

關於EXCEL VBA的語法 急急急

例如:1101台泥 Mar-0018.4418.4418.441101台泥 Jun-0016.9316.9318.291101台泥 Sep-0016.8416.8416.841101台泥 Dec-0016.8216.8216.821101台泥 Mar-0116.9816.9816.981101台泥 Jun-0116.5916.5917.091101台泥 Sep-0117.316.8417.31101台泥 Dec-0117.3916.9317.391101台泥 Mar-0218.6718.1218.671101台泥 Jun-0218.4417.9118.811101台泥 Sep-0218.3217.818.32變成:1101台泥 Mar-0018.4418.4418.441101台泥 Jun-0016.9316.9318.291101台泥 Sep-0016.8416.8416.841101台泥 Dec-0016.8216.8216.821101台泥 Mar-0116.9816.9816.981101台泥 Jun-0116.5916.5917.091101台泥 Sep-0117.316.8417.31101台泥 Dec-0117.3916.9317.391101台泥 Mar-0218.6718.1218.671101台泥 Jun-0218.4417.9118.811101台泥 Sep-0218.3217.818.32就是每一列的上方都可以插入兩列的空白列因為資料實在太多了所以希望大家能提供我VBA的語法做起來會比較快些感激不盡:)
寫個巨集比較快。

工具(T) /巨集 (M)/ 錄製巨集(R)出現 對話方塊

快速鍵的地方

指定個英文字母

譬如 m.開始錄製。

往下一格插入一列往下一格插入一列往下一格工具(T)/ 巨集(M)/ 停止錄製這樣就錄好巨集了。

然後 按 ctr-M

就往下插入兩列。

你一直 按ctr-M

就很快就整個都可以完成。

你參考一下Sub Macro1()For i = 2 To Sheet1.[A65536].End(xlUp).Row * 3 Step 3 Rows(i