2303VBA如何設定條件刪除多欄 @ 錦子老師

2303

VBA如何設定條件刪除多欄

謝小小：「錦子老師，如何判斷第2列出現"D"與”E”字元的欄位保留，而其他英文字元的欄刪除。

謝謝您，辛苦了！」

錦子老師：「這要寫一個VBA程序來處理。」

Sub PROC()

N = 2 ‘這是因為第一欄為日期不能刪除，故從2開始

For i = 2 To 29 ‘這是由於資料範圍從A欄到AC欄共29欄，也可以寫1 TO 28

If Cells(2, N).Value <> "D" And Cells(2, N).Value <> "E" Then ‘如果目前欄第二列不等於D或E，則執行下列動作

Columns(N).Select ‘選取不合的欄

Selection.Delete Shift:=xlToLeft ‘刪除該欄

N = N – 1 ‘由於刪除目前N代表的欄，故要將N值減1，回到前一欄

End If ‘結束IF區塊

N = N + 1 ‘將目前欄位值加1向右移動一欄

Next ‘I值加1

End Sub ‘結束程序

結果如下圖：

部落格相關範例

2021.03.01	2176Excel VBA 時間無法正確比較的問題
2021.02.26	21736個高手常用的Excel技巧-消除亂碼
2021.01.08	2133不同顏色儲存格該如何分別計數？(三)
2020.12.27	2126Excel如何找到所有符合相同排序的欄位，並傳回下一欄位的值？-VBA版
2020.12.21	2120Excel VBA對照字串並自動按順序排列
2020.11.30	2096EXCEL提取不重複值的五種方法(五)VBA程式法
2020.10.28	2064VBA編寫匯出TXT檔
2020.10.27	2063函數寫成VBA
2020.10.18	2053如何用CHR(32)表示連續空格？
2020.10.14	2053Excel VBA 如何自動查找右方黑色的資料，然後複製成左方紅色的格式 ?
2020.09.11	2032如何在 Excel中表達出級數-VBA
2020.08.05	1098EXCEL列出清單方法-VBA版
2020.07.28	1089在Excel裡合併散落在不同欄的資料
2020.04.28	988MSGBOX函數
2020.02.05	906 不會這七個操作技巧，別說您熟練Excel(七)
2019.12.21	886我賭5元！這8種薪資條製作方法總有一種你不會(三)
2019.12.18	2295VBA使用特殊符號怎麼寫進程式
2019.12.17	2294VBA巢狀IF問題
2019.11.20	2269請問Excel VBA 畫格子抓不到第一個Column ?
2019.11.14	2261EXCEL VBA 關於 LABEL 計算
2019.10.24	2274隱藏範圍名稱處理
2019.10.13	2264如何把有巨集的EXCEL檔案另存儲存沒巨集的EXCEL檔案
2019.10.09	2259使用VBA檢查文字檔是4種編碼中的那一種
2019.09.21	2227Excel搜尋特定欄，若包含該值則複製整列資料-IFERROR、IF、MAX、COUNTIF、OFFSET、ROW、COLUMN、MATCH函數
2019.09.16	2212儲存格的顏色依自己的設定做改變-VBA、RGB、CELLS
2019.09.10	2202VBA Range方面的問題二
2019.09.10	799Excel中判斷儲存格是否有公式的二種方法
2019.09.07	2202VBA Range方面的問題
2019.09.02	Q75Excel 連結VBA
2019.08.30	2194跨工作表資料合計-SUMIF
2019.08.30	10x10陣列!要依序填入1-100的數字
2019.07.13	Q28Excel怎麼取出字串中的數字轉換成國字，字串無固定規則
2019.06.15	2109-4這8個條件求和公式沒用過，別說你會Excel！
2019.06.05	776在Excel中錄製巨集的方法
2019.05.29	769在Excel工作表中使用相對參照錄製巨集的操作方法
2019.04.03	VBA008快速定位欄最後一個非空儲存格的實現方法
2019.03.28	VBA007在Excel工作表中指定的儲存格範圍中取消滑鼠右鍵啟動快顯功能表的方法
2019.03.24	2058Excel VBA 如何檢查工作表(名稱)是否存在
2019.02.12	VBA009自動標示Excel工作表中發生更改的資料
2018.05.24	Q134VLOOKUP與合併儲存格-VBA超強版
2018.04.05	Q2櫃號檢查-巨集一一檢查版
2018.01.05	VBA007使Excel視窗自動最大化的方法
2017.02.26	VBA006 英文字的大小寫轉換
2017.02.25	VBA005 英文字的大小寫轉換
2017.02.24	VBA004 取得啟用中的儲存格位址
2017.02.23	VBA003 取得己選取之儲存格範圍
2017.02.22	VBA002 自訂函數計算佣金
2017.01.31	VBA1Excel字典中的CompareMode屬性介紹以及部分代碼實例