ExcelVBA 删除数组中不包含的列

网友提问：

放大图片

放大图片

放大图片

回答网友问题：

您用语文方式提问，我不敢在没有把握的情况下回答。语文博大精深，一句话可以有多种解释，你的代码在运行不了的时候，我不敢保证你的思路是正确的，贸然回答，可能会让培训讲师做反而案例。

相识是缘分！我给你一个简单的方案。如果真是只有7列，手工删除是最快的，如果有200列，要保留其中的190列，删除其它的10列，您现在的写法就不合适了，有写代码的功夫手工也删除了。

想变成

代码如下：

运行 sub 删除不包含在数组中的列（）

您只需要在arr = array("要保留的列名1","要保留的列名2","要保留的列名3","要保留的列名4"....) 改一下里面你的内容

我写了一个函数，这个函数是传值和数组，判断值是否包含在数组中，包含就返回True并退出函数，不包含就返回False

ExcelVBA教程：https://www.bilibili.com/video/BV1rt4y1a72y