作者：乔山办公网日期：
返回目录：excel表格制作
Sub BTcopy()
col = 1 '地名所zhidao在列版号权
For i = [a65536].End(xlUp).Row To 3 Step -1
If Cells(i, col) <> Cells(i - 1, col) Then
Rows(1).Copy
Rows(i).Insert
End If
Next
End Sub
在编辑宏状态下，选择控键按钮，在按钮上右键，在属性对话框中选择“大小和位置都固定”
'实际测zd试，可用版
Sub charu()
'找到C列最后一权行
i = Range("c1000000").End(xlUp).Row
'插入行
Range("A" & i + 1).EntireRow.Insert
End Sub
举个例子：
Sub ts()
Range("a10").Insert '在zhidaoA10单元格这版个位置插入一整行
Range("a10").EntireRow.Delete '删除A10单元格这一整行
range("a10:a20").EntireRow.Delete '删除A10到a20这个区域的行
End Sub
其它可以自己试试。权