Rows(processingRow).Insert　　‘ 在指定的行数processingRow处插入一行
Rows(processingRow - 1).Select　　‘ 选择上一行的整行
Selection.Copy　　‘ 拷贝
Rows(processingRow).Select　　‘ 选择插入的行

ActiveSheet.Paste　　‘ 粘贴
Application.CutCopyMode = False　　’ 去掉拷贝形态

VBA 插入一行保留样式