删除指定字符所在的行

阿哩木 · 发表于 2024-2-23 17:21

请老师们帮帮忙，谢谢您！！

liulang0808 · 发表于 2024-2-23 18:49

删除不同字符所在的行.zip (22.9 KB, 下载次数: 4)
具体效率，楼主测试看看

ykcbf1100 · 发表于 2024-2-23 19:07

附件供参考。。。

ykcbf1100 · 发表于 2024-2-23 19:07

本帖最后由 ykcbf1100 于 2024-2-23 19:42 编辑

代码供参考，代码以附件为准。

Sub ykcbf() '//2024.2.23
Application.ScreenUpdating = False
Application.DisplayAlerts = False
st = [{"A1","X002"}]
b = [{1,9}]
With Sheets("Sheet1")
arr = .UsedRange
Set Rng = .Cells(UBound(arr) + 1, 1).Resize(1, 16)
For i = 2 To UBound(arr)
For x = 1 To UBound(b)
If arr(i, b(x)) <> Empty Then
If st(x) = arr(i, b(x)) Then
Set Rng = Union(Rng, .Cells(i, 1).Resize(1, 16))
End If
End If
Next
Next i
If Not Rng Is Nothing Then
Rng.Select
Selection.Delete Shift:=xlUp
End If
Application.CutCopyMode = False
.[a5].Select
End With
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

阿哩木 · 发表于 2024-2-23 21:53

liulang0808 发表于 2024-2-23 18:49
具体效率，楼主测试看看

好的谢谢谢谢！！

gwjkkkkk · 发表于 2024-2-23 22:39

Option Explicit
Sub TEST3()
Dim ar, br, i&, j&, r&, isFlag As Boolean, t#

Application.ScreenUpdating = False
t = Timer

br = [{1,"A1";4,"X002";10,"100";12,"4"}]
With Intersect(Columns("A:P"), ActiveSheet.UsedRange)
      ar = .Value: r = 1
      .Cells.ClearContents
      For i = 2 To UBound(ar)
         isFlag = False
         For j = 1 To UBound(br)
            If InStr(ar(i, br(j, 1)), br(j, 2)) Then
                  isFlag = True: Exit For
            End If
         Next j
         If isFlag = False Then
               r = r + 1
               For j = 1 To UBound(ar, 2)
                  ar(r, j) = ar(i, j)
               Next j
         End If
      Next i
End With

[A1].Resize(r, UBound(ar, 2)) = ar
Application.ScreenUpdating = True
MsgBox "执行完毕!_用时:  " & Format(Timer - t, "0.00") & "  秒", 64
End Sub

阿哩木 · 发表于 2024-2-23 22:40

ykcbf1100 发表于 2024-2-23 19:07
代码供参考，代码以附件为准。

您好老师，代码运行下来速度很快！但是有个地方，如果字符是文本的话，代码报错。比如我要删除单元格中有"清除"这两个字的行就删不掉。麻烦您再帮我看看，谢谢谢谢！然后在请问下老师，我上传的文件表头有16行，那如果表头换成了26行的话，是不是只要把1,16改成1,26就行吗

gwjkkkkk · 发表于 2024-2-23 22:41

参与一下。。。

ykcbf1100 · 发表于 2024-2-24 07:30

阿哩木发表于 2024-2-23 22:40
您好老师，代码运行下来速度很快！但是有个地方，如果字符是文本的话，代码报错。比如我要删除单元格中有 ...

改好了。。。
我已经更新了代码，有说明。多少行不用去管，那个16是指P列列号，是删除范围。

ykcbf1100 · 发表于 2024-2-24 07:31

更新代码。。。

Sub ykcbf() '//2024.2.24
Application.ScreenUpdating = False
Application.DisplayAlerts = False
st = [{"A1","X002",100,"错误"}] '//要删除的字符,后期可以增加或减少,视情修改
b = [{1,4,10,12}] '//删除字符对应的列号,后期可以增加或减少,视情修改
With Sheets("Sheet1")
arr = .UsedRange
Set Rng = .Cells(UBound(arr) + 1, 1).Resize(1, 16)
For i = 2 To UBound(arr)
For x = 1 To UBound(b)
If arr(i, b(x)) <> Empty Then
If CStr(st(x)) = CStr(arr(i, b(x))) Then
Set Rng = Union(Rng, .Cells(i, 1).Resize(1, 16))
End If
End If
Next
Next i
If Not Rng Is Nothing Then
Rng.Select
Selection.Delete Shift:=xlUp
End If
Application.CutCopyMode = False
.[a5].Select
End With
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

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

[求助] 删除指定字符所在的行

评分