如果条件满足vba清除单元格值

我试图使用数据透视表来生成图表，但是我想要包含VBA代码来清除值，如果某些string被选中，所以我不想生成图表，如果某些string被选中。

现在，我的vba代码使用了很多查找函数，我应该把iferror语句包含进去，但是我觉得现在回到过去的时间已经太晚了，只是需要更多的时间来修复我使用的每个vlookup函数。 现在，由于我只是在这个部分卡住，我只是要张贴这部分的代码。

数据透视表和图表的工作原理是用户select邮政编码和/或县，它会计算价值和graphics将出现，所以我可以监测每月的数据。 3个selectbutton中的每一个都有N / A，它不应该返回任何值，因此图表不会显示graphics，类似于重置button。 我只是testing，如果我select邮编为N / A，但代码失败，所以我没有扩大我的testing代码县和领土。 另外（全部）与N / A不同，（全部），我正在计算一切，作为整本书的业务。

我试图复制和粘贴数据透视表作为值，看看它是否会工作，它只是不会执行，当我按下F8 ，它看起来像它跳过范围select和select.clearcontents部分和跳转到结束。

Sub test() 'take out n/a Dim find As String find = "N/A" Select Case find Case Cells(2, 2).Value = find Range("E14:R14").Select Range("E43:R43").Select Range("E73:R73").Select Selection.ClearContents End Select End Sub