close

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 如果目前欄第二列不等於DE,則執行下列動作

       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

1089Excel裡合併散落在不同欄的資料

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搜尋特定欄,若包含該值則複製整列資料-IFERRORIFMAXCOUNTIFOFFSETROWCOLUMNMATCH函數

2019.09.16

2212儲存格的顏色依自己的設定做改變-VBARGBCELLS

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-48個條件求和公式沒用過,別說你會Excel

2019.06.05

776Excel中錄製巨集的方法

2019.05.29

769Excel工作表中使用相對參照錄製巨集的操作方法

2019.04.03

VBA008快速定位欄最後一個非空儲存格的實現方法

2019.03.28

VBA007Excel工作表中指定的儲存格範圍中取消滑鼠右鍵啟動快顯功能表的方法

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屬性介紹以及部分代碼實例

 


arrow
arrow
    文章標籤
    VBA 刪除
    全站熱搜
    創作者介紹

    錦子老師 發表在 痞客邦 留言(0) 人氣()