excel 每隔N行插入固定内容
excel 每隔N行插入固定内容
日期：2015-10-16 22:11:37 人气：5
做了一个每隔3行插入一个空行的代码。
Sub 插入()
Dim I, J As Integer
I = 2
Const MM = 3 '每个3行插入1行
J = 0
Do While Cells(I, 1) "" ‘表头默认为第一行，当第一列数据为空时，表示数据项结束
If J = MM Then
Cells(I, 1).Select
Application.CutCopyMode = False
Selection.EntireRow.Insert