用VBA删除不需要的内容，保留指定的内容

阿哩木 · 发表于 2024-10-12 14:31

请大佬帮忙看看，谢谢！

z865593849 · 发表于 2024-10-12 14:39

本帖最后由 z865593849 于 2024-10-12 14:40 编辑

代码你会写就自己完善吧

阿哩木 · 发表于 2024-10-12 14:45

z865593849 发表于 2024-10-12 14:39
代码你会写就自己完善吧

只会函数不会VBA

longwin · 发表于 2024-10-12 14:46

longwin · 发表于 2024-10-12 14:48

附件供参考....

longwin · 发表于 2024-10-12 14:53

前面的代码不够严谨，有误删的可能，用下面这段吧：
Sub test24101202()
Set d = CreateObject("scripting.dictionary")
arr = Range("Q2:W2").Value
For i = 1 To UBound(arr, 2)
If arr(1, i) <> "" Then d(arr(1, i)) = 1
Next
For i = 3 To [a1].CurrentRegion.Rows.Count
If Not d.exists(Cells(i, 2).Value) Then Range("A" & i & ":N" & i).Delete Shift:=xlUp
Next
Set d = Nothing
End Sub

小凡、、、 · 发表于 2024-10-12 14:54

用find吧

阿哩木 · 发表于 2024-10-12 15:01

小凡、、、发表于 2024-10-12 14:54
用find吧

感谢感谢！！

槐序三冬 · 发表于 2024-10-12 17:42

本帖最后由槐序三冬于 2024-10-12 22:39 编辑

Sub prectise()
Set a = ActiveSheet
'arr = Array("张", "A", "杨", "777", "B", "C")
Set rng_0 = Application.InputBox("您打算保留的名字所在列", Type:=8)
col_0 = rng_0.Column
index_1 = rng_0.Row
lastcol = a.Cells(index_1, col_0).End(xlToRight).Column - 1
arr = Array(Range(a.Cells(index_1, col_0), a.Cells(index_1, lastcol)))
For i = 1000 To 3 Step -1
For j = LBound(arr) To UBound(arr)
If Not IsInArray(a.Cells(i, 2).Value, arr) Then
a.Range("A" & i & " :N" & i).Delete shift:=xlUp
End If
Next
Next i
End Sub
' 辅助函数：检查值是否在数组中
Function IsInArray(val As Variant, arr As Variant) As Boolean
On Error Resume Next
IsInArray = (Application.Match(val, arr, 0) > 0)
On Error GoTo 0
End Function

复制代码

10贪生pass · 发表于 2024-10-12 17:44

Sub nihao()
Set a = ActiveSheet
x = a.UsedRange.Rows.Count
y = a.UsedRange.Columns.Count
arr = ""
For j = 17 To y
If a.Cells(2, j) = "" Then
Exit For
End If
arr = arr & a.Cells(2, j)
Next
For i = 25 To 3 Step -1
If Not InStr(arr, a.Cells(i, 2)) > 0 Then
a.Range("A" & i & " :N" & i).Delete shift:=xlUp
End If
Next
End Sub

复制代码

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

[求助] 用VBA删除不需要的内容，保留指定的内容

评分