Question

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

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

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

Answer 1

Sub Del()

    Dim i As Long

    For i = Range("a65536").End(xlUp).Row To 2 Step -1

        k = k + 1

        If k > 10 Then

            Cells(i, 1).EntireRow.Delete

            n = n + 1

            If n = 9 Then

                n = 0

                k = 0

            End If

        End If

    Next

End Sub

Answer 2

在空白列的第一行写公式：
=MOD(ROW(),10)
下拉到底，有几万行就拉几万，这一列的结果会是0、1、2...9、0、1、2、....循环，最后对这列进行筛选，不选择需要保留的数字（例如1），其它全部删除即可。

Answer 3

在需要删除的表中插入一列，根据要删除数据的ID使用VLOOKUP进行查找，然后再使筛选插入行的数据删除即可。
=VLOOKUP（要查找的值、要在其中查找值的区域、区域中包含返回值的列号、精确匹配或近似匹配
–
指定为
0/FALSE
或
1/TRUE）。

Answer 4

1-10行保留，删除11-19行，再20-29保留，删除30到38行，依次类推？
在空的列，按1-19填充，筛选11-19，删除。

Answer 5

找特征，对症下药