[原创]VBA程序集(第4辑)

fanjy · 发表于 2006-6-27 13:20

下面是我在学习VBA过程中积累的一些小程序,附有自已的分析,供参考!希望能对您有所帮助.

VBA程序集
(第4辑)

**********************************
程序13(查找)
[程序功能] 根据某列中单元格的值是否满足条件决定是删除该单元格所在的行还是保留该单元格所在的行
[程序说明] 根据A列中的值进行判断，如果不符合条件，则删除不符合条件的单元格所在的行。
[程序扩展] 可以根据实际情况对代码进行更改，如可对判断的列进行更换，可对判断的值进行更改，以满足所需功能。
注：本示例也可用工作表中的高级筛选功能实现所需结果。
[程序代码]
Sub 删除行()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim lastrow As Long, r As Long
lastrow = ActiveSheet.UsedRange.Rows.Count

For r = lastrow To 2 Step -1
If UCase(Cells(r, 1).Value) <> "留下" Then Rows(r).Delete '可以根据实际情况将条件进行更改,以实现需求.如更改列,或比较的值等
Next r

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

示例文档见 Rqxj5vOx.rar (7.38 KB, 下载次数: 700)

(By fanjy in 2006-6-27)

crshen · 发表于 2006-6-27 13:31

收藏，以后有空再看吧

gljzyp · 发表于 2006-6-27 14:40

再次等待第5辑！！！！

[em26][em24][em24][em23][em23][em23][em23]

loverbeast · 发表于 2006-6-28 20:50

very good

zhaxinbo · 发表于 2006-7-3 17:26

很详细啊，楼主有心了，日常用法几乎都涉及了吧，有空了定当好好揣摩揣摩！

asat · 发表于 2006-8-16 20:12

收下在研究,谢谢~~

xuxuxu · 发表于 2006-8-16 20:33

[em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23]

[em24][em24][em24][em24][em24][em24][em24][em24][em24][em24][em24][em24][em24][em24]

[em44][em44][em44][em44][em44][em44][em44][em44][em44][em44][em44][em44][em44][em44]

asat · 发表于 2006-8-17 01:47

收下,谢谢~~

ljx63426 · 发表于 2006-9-23 23:16

好，收下。[em23][em24][em27]

xcyang · 发表于 2006-11-7 23:18

并非灌水，绝对精彩！

		自动登录	找回密码
密码			免费注册