網(wǎng)友提問：

放大圖片

放大圖片

放大圖片

回答網(wǎng)友問題：

您用語文方式提問，我不敢在沒有把握的情況下回答。語文博大精深，一句話可以有多種解釋，你的代碼在運行不了的時候，我不敢保證你的思路是正確的，貿(mào)然回答，可能會讓培訓(xùn)講師做反而案例。

相識是緣分！我給你一個簡單的方案。如果真是只有7列，手工刪除是最快的，如果有200列，要保留其中的190列，刪除其它的10列，您現(xiàn)在的寫法就不合適了，有寫代碼的功夫手工也刪除了。

想變成

代碼如下：

運行 sub 刪除不包含在數(shù)組中的列（）

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

我寫了一個函數(shù)，這個函數(shù)是傳值和數(shù)組，判斷值是否包含在數(shù)組中，包含就返回True并退出函數(shù)，不包含就返回False

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