返回列表 上一主題 發帖

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

leehom

帖子
35 
主題
8 
精華
0 
積分
43 
點名
0  
作業系統
WIN7 
軟體版本
WIN 
閱讀權限
10 
註冊時間
2015-9-13 
最後登錄
2019-12-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-6 21:58 | 只看該作者

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

本帖最後由 leehom 於 2015-10-6 21:59 編輯

假設有以下幾列:


ABCD1251
DFJD1115
EFFE7855
ABCD4754
DGHK5242
ABCD9584
POKD8574
BVGH2547
RTEY4796
ABCD5647
WOIP3254

我想保留ABCD字母開首的列,其他則整列刪除,那應該怎麼做呢?謝謝! :D
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-10-7 18:50 | 只看該作者
回復 1# leehom
手動做 :  excel2010
    功能區  資料>篩選>'不開始於' ABCD
    選取篩選完資料>刪除列>取消篩選
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
3#
發表於 2015-10-7 19:11 | 只看該作者
回復 1# leehom
參考看看!
  1. Sub EXabcd()
  2. Dim lastRow As Long: lastRow = ActiveSheet.Cells(rowS.Count, 1).End(xlUp).Row
  3. Dim i As Long, j As Long: j = lastRow
  4. For i = 1 To lastRow
  5.     If Not Cells(i, 1) Like "ABCD####" Then
  6.         rowS(i).Delete 'Shift:=xlUp
  7.         i = i - 1: j = j - 1
  8.     End If
  9.     If j <= i Then Exit Sub
  10. Next i
  11. End Sub
複製代碼

TOP

leehom

帖子
35 
主題
8 
精華
0 
積分
43 
點名
0  
作業系統
WIN7 
軟體版本
WIN 
閱讀權限
10 
註冊時間
2015-9-13 
最後登錄
2019-12-16 
4#
發表於 2015-10-7 21:32 | 只看該作者
回復  leehom
手動做 :  excel2010
    功能區  資料>篩選>'不開始於' ABCD
    選取篩選完資料>刪除列 ...
stillfish00 發表於 2015-10-7 18:50


對啊,後來也想到這個比較笨但簡單的方式!

TOP

leehom

帖子
35 
主題
8 
精華
0 
積分
43 
點名
0  
作業系統
WIN7 
軟體版本
WIN 
閱讀權限
10 
註冊時間
2015-9-13 
最後登錄
2019-12-16 
5#
發表於 2015-10-7 21:32 | 只看該作者
回復 3# no3-taco

謝謝啊,但如果想保留第一列應該怎麼改呢?

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
6#
發表於 2015-10-7 22:00 | 只看該作者
本帖最後由 no3-taco 於 2015-10-7 22:02 編輯

回復 5# leehom

把其他列刪掉就可以留下第一列了

TOP

leehom

帖子
35 
主題
8 
精華
0 
積分
43 
點名
0  
作業系統
WIN7 
軟體版本
WIN 
閱讀權限
10 
註冊時間
2015-9-13 
最後登錄
2019-12-16 
7#
發表於 2015-10-8 12:47 | 只看該作者
回復 6# no3-taco


    我的意思是標題列,因為首字母非ABCD,所以也一拼刪除了

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
8#
發表於 2015-10-8 13:30 | 只看該作者
回復 7# leehom
  1. Sub Test()
  2.     For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  3.         If Left(Cells(i, 1), 4) <> "ABCD" Then Rows(i).Delete Shift:=xlShiftUp
  4.     Next
  5. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

hcm19522

帖子
1410 
主題
4 
精華
0 
積分
1420 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2025-5-16 

熱烈參與勳章
9#
發表於 2015-10-8 13:45 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/348057263

TOP

leehom

帖子
35 
主題
8 
精華
0 
積分
43 
點名
0  
作業系統
WIN7 
軟體版本
WIN 
閱讀權限
10 
註冊時間
2015-9-13 
最後登錄
2019-12-16 
10#
發表於 2015-10-9 00:00 | 只看該作者
回復 8# stillfish00

謝謝啊!!!

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題