Excel VBA 删除EXCEL 2个字符串所在行之间的行,已解决,感谢版主 - Exc...
来源:百度文库 编辑:神马文学网 时间:2024/04/28 19:40:27
Sub DelRow()
Dim c As Range, d As Range
Application.ScreenUpdating = False
With Sheet1.[a:a]
Do
Set c = .Find("Wake Up Call", , , 1)
If Not c Is Nothing Then
Set d = .Find("END", , , 1)
If Not d Is Nothing Then
Rows(c.Row & ":" & d.Row).Delete
End If
End If
Loop Until .Find("Wake Up Call", , , 1) Is Nothing Or .Find("END", , , 1) Is Nothing
End With
End Sub
Dim c As Range, d As Range
Application.ScreenUpdating = False
With Sheet1.[a:a]
Do
Set c = .Find("Wake Up Call", , , 1)
If Not c Is Nothing Then
Set d = .Find("END", , , 1)
If Not d Is Nothing Then
Rows(c.Row & ":" & d.Row).Delete
End If
End If
Loop Until .Find("Wake Up Call", , , 1) Is Nothing Or .Find("END", , , 1) Is Nothing
End With
End Sub
Excel VBA 删除EXCEL 2个字符串所在行之间的行,已解决,感谢版主 - Exc...
Excel VBA Examples(2)
Excel VBA Examples(2)
Excel VBA编程的常用代码2
各种Excel VBA的命令
Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel...
Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel...
CAD,Word,Excel之间的转换2
Excel VBA编程的常用代码
Excel VBA入门的基础语句3
Excel VBA入门的基础语句(11111111111
Excel VBA入门的基础语句(1)
EXCEL VBA 基础
EXCEL VBA 基础
Excel VBA完全手册
Excel VBA语句
EXCEL VBA 基础qeq
EXCEL VBA 基础1
EXCEL VBA 基础11
Excel VBA入门语句
EXCEL VBA 基础
EXCEL VBA 基础
Excel VBA排序算法
EXCEL VBA 基础