標題: [發問] 修改條件範圍 [打印本頁]

---

作者: home1913    時間: 2013-6-22 11:34     標題: 修改條件範圍

請問下面紅字部份要如何修改選取格子內有東西的範圍嗎?
因為每次條件範圍皆不同，下列範圍A2~A39，不要每次不同都要做修改
請教各位有何解決方法~

Range("E1:H1").Select
Sheets("庫存").Columns("A").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:A39"), CopyToRange:=Range("E1:H1"), Unique:= _

---

作者: softsadwind    時間: 2013-6-22 12:50

回復 1# home1913

Sheets("庫存").Columns("A").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:A39"), CopyToRange:=Range("E1:H1"), Unique:= _

改成
Sheets("庫存").Columns("A").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range([A2],[A65535].End(xlUp)), CopyToRange:=Range("E1:H1"), Unique:= _

---

作者: home1913    時間: 2013-6-22 13:18

回復 2# softsadwind

感謝教導，請問這段意思要怎麼說明   Range([A2],[A65535].End(xlUp)

---

作者: freeffly    時間: 2013-6-24 14:22

回復 3# home1913

   你用select單獨操作下面這一句
  然後每試一下在A欄新增資料
  看看變化

    Range([A2],[A65535].End(xlUp).select

---

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