Sub zxc() For i = 13 To 1 Step -5 '注意倒序,每隔几行插入就写“ -* ”这里是-5,需要从多少行开始插入就在=号和TO之间输入*行。这里是13行。 If Sheet1.Cells(i, 1) <> "" Then Rows(i + 1 & ":" & i + 3).Insert '插入3行,每次插入几行就输入*行 Sheet1.Cells(i, 2) = Sheet1.Cells(i, 1) End If Next i End Sub
在免费赠送一个合并的vb宏,自己领悟。 Sub Macro2() For i = 2 To 20 Step 4 '从第二行开始到20行,每4行合并一次 If Sheet1.Cells(i - 1, 2) <> "" Then Range(Cells(i - 1, 2), Cells(i + 2, 2)).Merge '合并4行 End If Next i End Sub