標題: [發問] 請問對不同欄位的自動篩選做同樣動作程式碼修改 [打印本頁]

---

作者: freeffly    時間: 2012-9-3 17:14     標題: 請問對不同欄位的自動篩選做同樣動作程式碼修改

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

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

複製代碼

---

作者: kimbal    時間: 2012-9-3 22:21

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

複製代碼

---

作者: freeffly    時間: 2012-9-4 08:41

回復 2# kimbal


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)