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

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

ji12345678

中學生 Rank: 2

帖子: 28
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: SP2
閱讀權限: 20
性別: 女
註冊時間: 2012-5-4
最後登錄: 2016-9-29

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-5-23 22:28 | 只看該作者

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

請教如何不用 FOR迴圈，快速的刪掉特定的列和多個特定的列？
目前是使用  FOR 迴圈，但時間太長，有更好、更聰明的方法嗎？
Intersect 方法可以辨的到的嗎？？？

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

謝謝指教，感恩~~~各位前輩~~！  :'(