Question

如何在excel中每隔10行删除9行，数据量几万行？

如何在excel中每隔10行删除9行，数据量几万行

比如01-10行，删除02-10行，保留第01行；
比如11-20行，删除12-20行，保留第11行；
…………
…………

Answer 1

如果每隔10行删除9行都是这个规律、连续的，这样操作：
1、增加一个辅助列，前10行填写值 1，后9行填写值 0；如下图；2、选择区域，进行填充：选此辅助列前10后9行区域，鼠标移动到此区域的最后单元格的右下角，指针变成填充句柄（黑色十字），双击，这样向下填充成功， 相当于下拉（因数据量大 11万条记录）；3、数据---筛选---删除， 过滤出值为 0 的记录后删除（选择记录，配合shift键，快捷操作）；4、对辅助列恢复其值为 1 的记录，留下的全是你的需要值记录。

Answer 2

用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

【效果】

Answer 3

根据题意，可以用公式直接提取更快，公式如下：

=FILTER(A1:B30,MOD(ROW(A1:A30),10)=1)

Answer 4

先输入两个1-10，第二排1-10再按ctrl+接着到底拉，

再筛选，就定位，1

复子表就正常

Answer 5

公式法：假设数据在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列整列，复制，以选择性粘贴为数值的方式去除公式，大功告成！！