求助高手帮看下另一高手代码错在哪里

远去的部落

（1）代码的目的是将A列所有包含“星“或 ”空“
的单元格全部删除，A列可以是1048576行哦
但我复制他的代码就出现编译错误感谢高手帮我更正
一下
（2）另外还有个请求请高手顺便再写一个将A列所有同时
包含““”星”“与 ”空“"的单元格删除即是：将同时出
现"星"与"空"的A2,A9,A10单元格删除但A4,A8不删除
A列可以是1048576行，每个单元格内最多有10个汉字或数字或字母哦
尽可能用高效的代码原因A列有可能是1048576行数据
怕用时过长

^星^

请教EXCEL高手另外一位高手写的代码哪里不对了？.zip (665.88 KB, 下载次数: 10)

2024-3-2 21:07 上传

点击文件名下载附件

半百

user湫

1. Function Find_Range(Find_Item As Variant, _
   
2. Search_Range As Range, _
   
3. Optional LookIn As Variant, _
   
4. Optional LookAt As Variant, _
   
5. Optional MatchCase As Boolean) As Variant
   
6. ' 定义一个名为Find_Range的函数，用于在指定的范围内查找指定项
   
7. ' Find_Item: 要查找的项
   
8. ' Search_Range: 要在其中进行查找的范围
   
9. ' LookIn: 查找时要考虑的内容类型（可选，默认为xlValues）
   
10. ' LookAt: 查找时要考虑的匹配类型（可选，默认为xlPart）
    
11. ' MatchCase: 是否区分大小写（可选，默认为False）
    
12. 
    
13. Dim c As Range
    
14. Dim CustArry() As Variant
    
15. Dim row As Integer
    
16. Dim firstAddress As String
    
17. 
    
18. If IsMissing(LookIn) Then LookIn = xlValues 'xlFormulas
    
19. If IsMissing(LookAt) Then LookAt = xlPart 'xlWhole
    
20. If IsMissing(MatchCase) Then MatchCase = False
    
21. ' 如果未提供LookIn、LookAt或MatchCase参数，则使用默认值
    
22. Excel.Application.ScreenUpdating = False
    
23. With Search_Range
    
24.    Set c = .Find( _
    
25.      What:=Find_Item, _
    
26.      LookIn:=LookIn, _
    
27.      LookAt:=LookAt, _
    
28.      SearchOrder:=xlByRows, _
    
29.      SearchDirection:=xlNext, _
    
30.      MatchCase:=MatchCase, _
    
31.      SearchFormat:=False)
    
32.    ' 在指定范围内查找指定项，并返回第一个匹配的单元格
    
33.    If Not c Is Nothing Then
    
34.      Set Find_Range = c
    
35.      firstAddress = c.Address
    
36.      Do
    
37.        Set Find_Range = Union(Find_Range, c)
    
38.        Set c = .FindNext(c)
    
39.        ' 将找到的单元格添加到Find_Range中，然后继续查找下一个匹配项
    
40.      Loop While Not c Is Nothing And c.Address <> firstAddress
    
41.    End If
    
42. End With
    
43. Excel.Application.ScreenUpdating = True
    
44. End Function
    
45. Sub TestFindRange()
    
46.     Dim resultRange As Range
    
47.     i0 = InputBox("请输入需要定位的值", "参数1")
    
48.     i1 = InputBox("请输入需要定位的范围", "参数2")
    
49.     Set resultRange = Find_Range(i0, Range(i1))
    
50.     If Not resultRange Is Nothing Then
    
51.         resultRange.Select
    
52.     Else
    
53.         MsgBox "未找到匹配项"
    
54.     End If
    
55. End Sub
    
56. 
    
57. 
    
58. 
    

复制代码

user湫

你看看这个是否可以使用，需要稍微修改一下

半百

ykcbf1100

楼主明显是抄错了代码。

user湫

ykcbf1100 发表于 2024-3-2 21:38
楼主明显是抄错了代码。

整体看起来怪怪的，几个地方有问题

远去的部落

^星^ 发表于 2024-3-2 21:07

感谢星的回复，您的代码可行。现再次请教请移步到我的贴子！

远去的部落

半百 发表于 2024-3-2 21:11

多谢半百指导确实是这样