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 |
|
2021.02.26 |
|
2021.01.08 |
|
2020.12.27 |
|
2020.12.21 |
|
2020.11.30 |
|
2020.10.28 |
|
2020.10.27 |
|
2020.10.18 |
|
2020.10.14 |
|
2020.09.11 |
|
2020.08.05 |
|
2020.07.28 |
|
2020.04.28 |
|
2020.02.05 |
|
2019.12.21 |
|
2019.12.18 |
|
2019.12.17 |
|
2019.11.20 |
|
2019.11.14 |
|
2019.10.24 |
|
2019.10.13 |
|
2019.10.09 |
|
2019.09.21 |
2227Excel搜尋特定欄,若包含該值則複製整列資料-IFERROR、IF、MAX、COUNTIF、OFFSET、ROW、COLUMN、MATCH函數 |
2019.09.16 |
|
2019.09.10 |
|
2019.09.10 |
|
2019.09.07 |
|
2019.09.02 |
|
2019.08.30 |
|
2019.08.30 |
|
2019.07.13 |
|
2019.06.15 |
|
2019.06.05 |
|
2019.05.29 |
|
2019.04.03 |
|
2019.03.28 |
|
2019.03.24 |
|
2019.02.12 |
|
2018.05.24 |
|
2018.04.05 |
|
2018.01.05 |
|
2017.02.26 |
|
2017.02.25 |
|
2017.02.24 |
|
2017.02.23 |
|
2017.02.22 |
|
2017.01.31 |
留言列表