代碼助手下載地址 http:///blog/archives/11297

中文變量首字母拼音提示：

-s 列出所有工作表名稱：

如上圖在第8行至11行中插入多行的代碼：

Insert方法：

Range 對(duì)象在工作表或宏表中插入一個(gè)單元格或單元格區(qū)域,，其他單元格相應(yīng)移位以騰出空間。

Range.Insert(Shift, CopyOrigin)

Shift （可選參數(shù)）指定單元格的調(diào)整方式,，以下為 XlInsertShiftDirection 常量：

xlShiftDown: 向下移動(dòng)單元格

xlShiftToRight: 向右移動(dòng)單元格

CopyOrigin （可選參數(shù)）：復(fù)制的起點(diǎn)

批量插入多行代碼：

代碼：

實(shí)現(xiàn)后效果：

注意：插入操作要采取倒序循環(huán),，從后往前操作，否則會(huì)導(dǎo)致影響后續(xù)操作,。