1. 在表格标题处,右键,选择:查看代码
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. 输入完成后效果如下,点击运行
4. 在弹窗中输入删除的行数
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,然后文件大了一倍