求根据条件点击指定单元格，清除指定列数据的代码，非常感谢！

lsyylw

2020-6-16-.zip (2.23 KB, 下载次数: 1)

2020-6-16 19:16 上传

点击文件名下载附件

大灰狼1976

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address <> "$B$5" Then Exit Sub
   
3. Choose([h3], [h5:h7], [i5:i7]).ClearContents 'H3单元格不能是1、2以外的内容
   
4. End Sub

复制代码

lsyylw

大灰狼1976 发表于 2020-6-16 20:30

万分的感谢老师，代码非常好用。

lsyylw

大灰狼1976 发表于 2020-6-16 19:17

连续的麻烦老师，实在是不好意思，这次不着急，您有时间的时候在帮我看一下链接上的问题，不胜感激！http://www.excelpx.com/forum.php ... d=460067&extra=