"" Then Cells(i, c).Select Selection.EntireRow.Insert End IfNext另外，选择区域而后得到空行的代码更简单，仅一行：Selection.Sp