根据一列字符，删除另一列对应的单元格内容

王耑

不知道为什么 发表于 2023-5-4 12:27
附件。。。。。。。

我先看下，感谢帮助。

于箱长

王耑 发表于 2023-5-4 12:32
非常感谢提供的帮助，但效果不是我想要的，我要的是整表其他部分都不变，因为这中间还有许多其他内容，只 ...

嗯，看到了，我理解错了，报歉

王耑

不知道为什么 发表于 2023-5-4 12:27
附件。。。。。。。

搞不定了，这是我原表，会把我O列TTL以下的函数都变成数值了，而测试你的却不会有这现象，不知道是我哪里抄错你的编程了，麻烦帮我看下，谢谢。

王耑

王耑 发表于 2023-5-4 12:33
我先看下，感谢帮助。

看下按钮19，谢谢

zxsea_7426

1. Sub test()
   
2.     Dim rngs As Range
   
3.     With Sheet1
   
4.     ar = .Range(.[f1], .Cells(Rows.Count, "F").End(3))
   
5.     For i = 1 To UBound(ar)
   
6.         If ar(i, 1) = "D" Then
   
7.             If rngs Is Nothing Then
   
8.                 Set rngs = .Cells(i, "B")
   
9.             Else
   
10.                 Set rngs = Union(rngs, .Cells(i, "B"))
    
11.             End If
    
12.         End If
    
13.     Next i
    
14.     If Not rngs Is Nothing Then rngs.ClearContents
    
15.     End With
    
16. End Sub

复制代码

不知道为什么

王耑 发表于 2023-5-4 13:16
看下按钮19，谢谢

如图                  

王耑

不知道为什么 发表于 2023-5-4 12:27
附件。。。。。。。

麻烦帮我看下我的原表里按钮19编程哪里抄错了，谢谢

王耑

不知道为什么 发表于 2023-5-4 13:34
如图

我去看看，谢谢

王耑

不知道为什么 发表于 2023-5-4 13:34
如图

不管哪个改成5，或者都改成5，都没效果

ykcbf1100

求助时啥也不说，别人提供代码后，哪不对、哪哪没效果，一直追问。
你不会求助时就一次性说清楚啊，大家都忙，不要浪费时间。