如何在excel中每隔10行删除9行，数据量几万行？
如何在excel中每隔10行删除9行，数据量几万行
比如01-10行，删除02-10行，保留第01行；
比如11-20行，删除12-20行，保留第11行；
…………
…………
如果每隔10行删除9行都是这个规律、连续的，这样操作：
1、增加一个辅助列，前10行填写值 1，后9行填写值 0；如下图；2、选择区域，进行填充：选此辅助列前10后9行区域，鼠标移动到此区域的最后单元格的右下角，指针变成填充句柄（黑色十字），双击，这样向下填充成功， 相当于下拉（因数据量大 11万条记录）；3、数据---筛选---删除， 过滤出值为 0 的记录后删除（选择记录，配合shift键，快捷操作）；4、对辅助列恢复其值为 1 的记录，留下的全是你的需要值记录。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2022-01-11
用VBA可以实现，因为具体情况没有描述清楚，目前写的是删除9行，保留空白，具体可以调整。
【代码】
Sub 删除9行()
Dim EndRow, k As Long
EndRow = Sheet2.Range("A:A").Find("").Row
k = 1
For i = 1 To EndRow
If k = 10 Then
Sheet2.Rows(i + 1 & ":" & i + 9).Select
Selection.ClearContents
i = i + 9
k = 1
Else
k = k + 1
End If
Next
End Sub
【效果】
第2个回答 2022-01-12
根据题意，可以用公式直接提取更快，公式如下：
=FILTER(A1:B30,MOD(ROW(A1:A30),10)=1)
第3个回答 2022-01-12
先输入两个1-10，第二排1-10再按ctrl+接着到底拉，
再筛选，就定位，1
复子表就正常
第4个回答 2022-01-10
公式法：假设数据在A列并从A1开始，复制公式=OFFSET(A$1,INT(ROW(A10)/10)*19-19+MOD(ROW(A10),10),)后，鼠标选中C1单元格，将左上角名称框中的C1修改成C1:C50000后按回车键，（这时C列的1到5万行已被选中，鼠标不要乱点，否则选区将破坏需重选），鼠标点公式编辑栏，将一开始复制的公式粘贴到公式编辑栏内，按Ctrl+回车键，得到每隔10行删除9行后的数据。最后，点C列列标上的字母C选中C列整列，复制，以选择性粘贴为数值的方式去除公式，大功告成！！
相似回答