EXCEL删除指定的行

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

其他用途举例，删除1-10行，以及13行，15行

1:10,13,15

自己用备忘

30001:60000
2:30000

拆分为5M以后，系统格式需要XSL，又将xsls转换为xsl，然后文件大了一倍

image.png

25ed56001b00b5a77b11eb9b90103a6.png

f83d2e42235073981959bebf551b605.png