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

1、Private Sub CommandButton2_Click()Dim i As StringDim j As Stringi = 18’拷贝左上角18的行j = 21‘从左上角21行开始拷贝Rows(i).SelectSelection.CopyRows(j).SelectRows(j).Insert Shift:=xlDownActiveSheet.Pastei = i + 3‘因为这里面需要拷贝的单元格是通过三行合并成的j = j + 3End Sub