作者：乔山办公网日期：
返回目录：excel表格制作
A列必须有序号
1、打开你的工作薄，按 Alt+F11 进入VBA编程窗口
2、把工具栏第二个下拉按钮拉下来，选择“模块”，7a64e58685e5aeb9338这样你就可以在左边栏看到“模块—模块1”这个层次结构
3、双击“模块1”，就会在右边打开一个空白的书写程序的地方，把下面这段程序复制粘贴进去
Sub insBlank()
Dim sh As Worksheet
Dim lastRow As Long
Set sh = ActiveSheet
lastRow = Range("A" & sh.Rows.Count).End(xlUp)
Application.ScreenUpdating = False
For i = 5 To lastRow Step 5
sh.Rows(i).Insert
Next
Application.ScreenUpdating = True
End Sub
4、关闭编程窗口回到工作表中，按Alt+F8,可以打开宏窗口，现在看到这个名为“insBlank”的宏了吧，点“执行”，它就会在你当前工作表中每4行插一个空行。
For i = 5 To lastRow Step 5
这中的两个5，就是你要几行插入一行加一，如要在四行后插入一行，则为5，以些类推。
Sub Macro1()
Dim rngY As Range, rngC As Range
Set rngY = [b2] '格式源，即百：第2行、B列度
Set rngC = [D5] '插入行或列的位置，即：插入的行为第5行、插入的列专为D列
'----插入行：
rngC.EntireRow.Insert Shift:=xlDown
rngY.EntireRow.Copy
rngC.EntireRow.PasteSpecial Paste:=xlPasteFormats
'----插入列：
rngC.EntireColumn.Insert Shift:=xlToRight
rngY.EntireColumn.Copy
rngC.EntireColumn.PasteSpecial Paste:=xlPasteFormats
'----退出复制粘贴模属式
Application.CutCopyMode = False
End Sub
iRows=activesheet.usedrange.rows.count
iColumns=activesheet.usedrange.Columns.count
'如果表格前面的几行zhidao或几列可能是空的，版需要获得最下面的行数和最右面的列权数：
with activesheet.usedrange
iEndRow=.rows.count+.row-1
iEndColumn=.Columns.count+.column-1
end with
1、新建一个Excel2003工作百表，我们按不同的属性分为不同的列，如在工作经常记录生产信息，我们按照合同号，装置型号，装置名称，客户名称，工程名称，电话，联系人，发货地址来记录信息。
2、后来发现少一个序号的列，不好统计合同数量，所以度我们要在第一列加入序号列，那么就要用到插入问列答，用鼠标选中要插入列位置，可以在菜单插入处点列，也可以直接用Alt+I+C,进行插入列的操作。
3、用鼠标选中要插入列位置处，点右键出现的快捷菜单插入也可以。
4、这个是插入的空白列，自动插入在鼠标选中的左侧。我们在第一行，可以输入序号。
5、对工作表的第一行进行简单设置，每一列的属性不一样，设置的单元格数字也版不一样，我们按需要设置就行，这一行与其他行不一样，我们用特殊颜色标识一下，在序号列用自动填充把数字填写好在后面的列中填入合同号。
6、做表时很方便的把列的每一行都填充了，可是如果后面有的信息一行放不下怎么办，序号不能改动的，第权一个合同号的对应都是唯一的，但装置可能不只一种就要插入行了，和上述插入列的方法基本一样，只不过点的位置一个是行，一个是列，由插入列变成了插入行了，自动插入到所选行的上面。