[發問] 請問對不同欄位的自動篩選做同樣動作程式碼修改

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-9-3 17:14 | 只看該作者

請問如果我要對7, 8, 15, 16這些欄位做同樣動作
下面的程式碼是我寫的可是運作不起來
他不會依序跑那些欄位
我的程式碼有問題嗎?
還是要改哪邊?

Sub Macro2()
n = Array(7, 8, 15, 16)
For i = 1 To UBound(n)
Selection.AutoFilter Field:="i", Criteria1:=":"
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.ClearContents
Selection.AutoFilter Field:="i"
Next
End Sub

複製代碼

字典兩各字還真難理解

論壇貢獻勳章

2^#

發表於 2012-9-3 22:21 | 只看該作者

Sub Macro2()
n = Array(7, 8, 15, 16)
For i = 0 To UBound(n)
Selection.AutoFilter Field:=n(i), Criteria1:=":"
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
Selection.AutoFilter Field:=n(i)
Next
End Sub

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

熱烈參與勳章好學求知勳章

3^#

發表於 2012-9-4 08:41 | 只看該作者

回復 2# kimbal

謝謝版主
原來差在這幾各地方

字典兩各字還真難理解

靜思自在 : 不要小看自己，因為人有無限的可能。