1. 在表格标题处，右键，选择：查看代码

image.png

2. 在VBA编辑视图中输入代码

Sub BatchDelete()
    Dim inputstr As String
    Dim result() As String
    Dim i As Integer
    
    inputstr = InputBox("请输入要删除的行号（用英文逗号间隔）", "批量删除指定行")
    result = Split(inputstr, ",")

    For i = LBound(result) To UBound(result)
        If InStr(1, result(i), ":", vbTextCompare) <= 0 Then
            ' not containing :
            result(i) = result(i) & ":" & result(i)
        End If
    Next

    inputstr = Join(result, ",")
    ActiveSheet.Range(inputstr).Delete
End Sub

3. 输入完成后效果如下，点击运行

image.png

4. 在弹窗中输入删除的行数

image.png

5. 删除完成

举例说明：

1，将所有数据的列修改为模板列，文件太大，需要5M/文件
2，35W+数据一共24W，拆分为6份，每份6W
3, 重要备注：先删除最尾部，再删前面，如果次序反了，行号会变动。
A，保留1-60000
60001:360000
B，保留第一行标题，以及60001-120000
120001:360000
2:60000

C，保留第一行标题，以及120001-180000
180001:360000
2:120000

D，保留第一行标题，以及180001-240000
240001:360000
2:180000

E，保留第一行标题，以及240001-300000
300001:360000
2:240000

F，保留第一行标题，以及300001-360000
2:300000