請教如何不用 FOR迴圈，快速的刪掉特定的列？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教如何不用 FOR迴圈，快速的刪掉特定的列？

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

[發問] 請教如何不用 FOR迴圈，快速的刪掉特定的列？

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 »

發表於 2014-5-24 04:45 | 顯示全部帖子

本帖最後由 yen956 於 2014-5-24 04:49 編輯

回復 1# ji12345678
我的方法還是用 For next
但, 倒過來刪除, 可省很多程式列, 可省一些時間

Sub 看青木()
AAA = Range("B65536").End(xlUp).Row
For x = AAA To 2 Step -1
If Cells(x, 2) <> 1 Then '
Rows(x).Delete
End If
Next x
End Sub
'================================================
Sub 看阿久津等五人()
AAA = Range("B65536").End(xlUp).Row
For x = AAA To 2 Step -1
d = Cells(x, 2)
If d = 1 Or d = 3 Or d = 5 Or d = 7 Or d = 9 Then '
Rows(x).Delete
end if
Next x
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2014-5-24 04:54 | 顯示全部帖子

本帖最後由 yen956 於 2014-5-24 05:01 編輯

回復 1# ji12345678 [
用自動篩選如何?
(又可保有原有資料)

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

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