標題: [發問] VBA程式碼增加篩選條件 [打印本頁]

---

作者: b9208    時間: 2015-5-13 14:32     標題: VBA程式碼增加篩選條件

各位先進
如下程式碼，今擬加入篩選條件，當W欄非空白及AG欄值 = Y時計算統計。
敬請先進們指導，應如何修改程式碼。
非常感謝

With Sheets("WORK")
If .[W6].End(xlDown).Row = .Rows.Count Then MsgBox "無資料": Exit Sub
For Each A In .Range(.[W6], .[W65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
Ar = Split(A, "+")
   For Each C In Ar
      MyStr = C & "," & Left(A.Offset(, 3), 8) & "," & A.Offset(, 8)
      dic1(MyStr) = Split(MyStr, ",")
   Next
Next
End With

---

作者: GBKEE    時間: 2015-5-14 08:17

回復 1# b9208
是這樣嗎?

1. If A <> "" And .Cells(A.Row, "AG") = y Then

複製代碼

---

作者: b9208    時間: 2015-5-14 13:00

回復 2# GBKEE

Dear GBKEE
非常感謝幫忙與協助
執行後OK
小修訂如下：y的位置增加"  "
If A <> "" And .Cells(A.Row, "AG") = "y" Then

---

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