如何在<em>excel</em>中<em>vba</em>添加指定格式

给个思路，要插入行，首先要选择行，再进行插入操作。假设在第二行处插入一行，则VBA代码如下：rows(2).insert shift:=xlup

复制并插抄入该行

Sub 插入相袭同格式的行zhidao()

Dim R1 As Integer, R2 As Integer

R1 = 2

R2 = 4

Rows(R1).Copy

Rows(R2).Insert

End Sub

Sub KK()
　lastrow = Worksheets("工作百表名称").UsedRange.SpecialCells(xlCellTypeLastCell).Row
　Dim i As Integer
　For i = 1 To lastrow
　　Rows(i * 4 - 2).Resize(3).Insert
　Next
End Sub
已测度试通过．
说明：问（答i*4-2）表示从第内2行开始插入容空格行，如从第3行开始插入空格行则用：：（i*4-1）

自己录一段，改改就行了