如何在excel中vba添加指定格式的一行

1、Private Sub CommandButton2_Click()Dim i As StringDim j As String i = 18’拷贝左上角18的行j = 21‘从左上角21行开始拷贝

Rows(i).SelectSelection.CopyRows(j).SelectRows(j).Insert Shift:=xlDownActiveSheet.Pastei = i + 3‘因为这里面需要拷贝的单元格是通过三行合并成的j = j + 3

End Sub