批量删除含有指定关键词的行——EXCEL 宏
来源:互联网 发布:年度工作总结 知乎 编辑:程序博客网 时间:2024/06/12 20:41
Sub QQDelData()
Dim i&, j&, Jm&, Arr, Brr, Crr, TM
TM = Timer
Arr = Range([表A!A2], [表A!A65536].End(xlUp))
Brr = Range([表B!A2], [表B!A65536].End(xlUp))
ReDim Crr(1 To UBound(Arr), 0)
For i = 1 To UBound(Arr)
If Arr(i, 1) = “” Then GoTo 101
For j = 1 To UBound(Brr)
If InStr(” ” & Arr(i, 1), Brr(j, 1)) > 1 Then GoTo 101
Next j
Jm = Jm + 1: Crr(Jm, 0) = Arr(i, 1)
101: Next i
[表A!A2:A65536].ClearContents
[表A!A2].Resize(Jm) = Crr
MsgBox “共刪除 ” & UBound(Arr) - Jm & ” 行,使用 ” & Timer - TM & ” 秒 ”
End Sub
0 0
- 批量删除含有指定关键词的行——EXCEL 宏
- VBA批量删除excel指定行 (Excel奇数行)
- linux 批量杀死包含指定关键词的进程
- Editplus 正则表达式 删除含有指定字符串的行 删除注释
- Excel批量删除空白行
- UltraEdit怎么批量删除指定字符所在的行
- SQL批量删除含有外键的表的方法
- EXCEL VBA 文件夹操作——批量添加指定文件夹的图片
- 用python批量删除含有相同字符的文件
- Linux 批量删除指定后缀的文件
- mysql批量删除指定后缀名的数据表
- coremail批量删除指定用户的邮件
- redis批量删除指定的key
- 批量添加删除指定数量的用户
- Excel如何批量删除相同的数据行
- 十五周—输入含有指定字符的字符串
- 批量删除Excel上的图片
- 如何批量隔行删除Excel行
- liunx服务器时间、时区设置(解决快、慢8小时问题)
- 14实践项目1.2
- javacv根据别人的修改的关于对图片操作的工具类
- PAT A1050
- Android简单的ViewPager指示器
- 批量删除含有指定关键词的行——EXCEL 宏
- 查询字符串参数
- iOS10的nano_free nano_relocated crash总结
- 第十六周 结构体---职工信息结构体
- 单源最短路径---Dijkstra算法
- iOS通过dSYM文件分析crash
- 左旋转字符串
- Java基础学习总结——equals方法
- (Java)面向对象编程六大基本原则