如何利用VBA保留特定字母的列,而刪除其他? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何利用VBA保留特定字母的列,而刪除其他?

返回列表下一主題上一主題發帖

[發問] 如何利用VBA保留特定字母的列,而刪除其他?

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2015-10-7 18:50 | 顯示全部帖子

回復 1# leehom
手動做 : excel2010
功能區資料>篩選>'不開始於' ABCD
選取篩選完資料>刪除列>取消篩選

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-10-8 13:30 | 顯示全部帖子

回復 7# leehom

Sub Test()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Left(Cells(i, 1), 4) <> "ABCD" Then Rows(i).Delete Shift:=xlShiftUp
Next
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題