问高手：EXCEL中，需在每10行后自动插入一空行，怎么写公式

来源：百度知道 编辑：UC知道 时间：2024/06/08 17:46:01
例：有1000行，需要在每间隔10行自动插入一空行，免去手工操作，公式怎样写

用宏吧
Sub xyz()
Dim i As Integer
i = 11
Dim s As String
while i <1000
s = i & ":"
s = s & i
Rows(s).Select
Selection.Insert Shift:=xlDown '插入一行
i=i+11
Wend
End Sub

假设你所有数据的最后一列是H

在H1 输入=IF(ROW()<=1000,ROW(),(ROW()-1000)*10+0.5) 下拉到H1100

然后拷贝黏贴“值”替换H列，接着对H列排序