[已解决]清空单元格内容并保留需要的单元格

zhgghw

清空一定区域的单元格内容，但需要保留有指定字符的单元格，详见附件。谢谢！ 清空及保留.rar (8.29 KB, 下载次数: 4)

2017-5-3 11:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

327718098

2017-5-3 13:59

Sub text()
Dim rng As Range
For Each rng In [a1:d16]
    If rng.Value <> "天安门" And rng.Value <> "北京" Then
        rng.ClearContents
    End If
Next


End Sub

跳转到最佳答案楼层

327718098

Sub text()
Dim rng As Range
For Each rng In [a1:d16]
    If rng.Value <> "天安门" And rng.Value <> "北京" Then
        rng.ClearContents
    End If
Next


End Sub