如何删除带（）的行呢

summerlcb

将表一变成表二的效果，即带括号的子序号行都不要。
请问这个代码怎么写呢？

feiren228

请测试

1. Sub test()
   
2.     Dim rng As Range
   
3.     r = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
   
4.     For i = 1 To r
   
5.         temp = Cells(i, 1).Value
   
6.         If InStr(temp, "(") <> 0 Then
   
7.             If rng Is Nothing Then
   
8.                 Set rng = Range("a" & i)
   
9.             Else
   
10.                 Set rng = Union(rng, Range("a" & i))
    
11.             End If
    
12.         End If
    
13.     Next
    
14.     If Not rng Is Nothing Then
    
15.         rng.EntireRow.Delete
    
16.     End If
    
17. End Sub
    

复制代码

雪舞子

1. Sub test()
   
2.     Dim i%
   
3.     For i = [a65536].End(3).Row To 1 Step -1
   
4.         If Cells(i, 1).Value Like "(*)" Then Rows(i).Delete
   
5.     Next
   
6. End Sub

复制代码

feiren228

附件》》》
删除带（）的行test.rar (16.66 KB, 下载次数: 4)

2015-1-7 16:39 上传

点击文件名下载附件

summerlcb

feiren228 发表于 2015-1-7 16:37
请测试

纵然多久没上eh。回来依旧能感受到大家的热忱。。谢谢

summerlcb

雪舞子 发表于 2015-1-7 16:39

谢谢谢谢谢