第1个回答 推荐于2016-02-16
每隔10行保留一行理解为:每隔10行,留出一个空行来
以下为VBA代码及简要解释:
Sub main()
For i = 10000 To 1 Step -1'从10000行到1行,倒着循环;因为如果是从1到10000循环,当插入一行时,下一个20行实际是原来的19行,与想要的结果不一致
If i Mod 10 = 0 Then'判断行号是否为10的倍数
Rows(i + 1).Insert'如果是10的倍数,则选择这一行下面的一行,再插入空行;如果是选中这一行,以10行为例,选中第十行,插入的话,会在第10行上插入一行,10行变成11号,与题意不符
End If
Next i
End Sub
第2个回答 2012-07-23
这个公式可以取A列的数,每相隔10行取一行
=OFFSET($A$1,(ROW(A1)-1)*10,) 下拉复制公式
第3个回答 2012-07-23
若数据在A列,可在B1输入公式 =INDIRECT("a"&10*ROW()-9) 并下拉复制。