恳请大神师傅帮忙看下，这个清除数据的代码咋弄

qiongmei6 · 发表于 2024-2-11 19:49

我想在附件中求得一个代码，就是当x1的文字在b5：b124内找不到数据，则清除x：ac列的内容，谢谢各位大神师傅的帮忙。

杨建营 · 发表于 2024-2-11 20:19

请楼主参考。

shiruiqiang · 发表于 2024-2-11 20:30

shiruiqiang · 发表于 2024-2-11 20:31

Sub test()
Dim rng As Range
Set rng = Sheets(1).Range("b5:b124").Find(Sheets(1).[x1].Value)
If rng Is Nothing Then
Sheets(1).Range("x1:ac1000").ClearContents
End If
End Sub

lushang2018 · 发表于 2024-2-11 21:35

Sub TestSub()
Dim i, k
For i = 6 To Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
If Sheet1.Cells(1, "X") = Sheet1.Cells(i, 1) Then
k = k + 1
End If
Next
If k = 0 Then
Columns("X:AC").clearcontens
End If
End Sub

复制代码

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

[求助] 恳请大神师傅帮忙看下，这个清除数据的代码咋弄

评分

评分

评分