excel中采集的数据行太多如何编程序，每隔10行保留一行？谢谢！

发布网友发布时间：2022-04-29 20:24

共4个回答

热心网友时间：2023-10-08 20:05

不需要编程
直接简单的方法就可以解决
首先，看下你的哪个列的单元格是全部已经填充完了的
（为了方便下拉）
在选定的列的右边，插如辅助列
在需要保留的第一行的辅助列内填输入任意文字，如字母A
选取辅助列中A相邻的十个单元格
把鼠标移到选择后区域的最右下角
双击（下如果前面的单元格有不连续的，那用下拉的方法）
选择辅助列，CTRL+G定位，空值
右键点其中一个单元格，删除行
确定就可以了

热心网友时间：2023-10-08 20:05

每隔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

热心网友时间：2023-10-08 20:06

这个公式可以取A列的数,每相隔10行取一行
=OFFSET($A$1,(ROW(A1)-1)*10,) 下拉复制公式

热心网友时间：2023-10-08 20:06

若数据在A列，可在B1输入公式 =INDIRECT("a"&10*ROW()-9) 并下拉复制。