返回列表 上一主題 發帖

[發問] 修改條件範圍

home1913

帖子
22 
主題
5 
精華
0 
積分
36 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2011-2-15 
最後登錄
2014-6-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
2#
發表於 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:= _
50 字節以內
不支持自定義 Discuz! 代碼

TOP

home1913

帖子
22 
主題
5 
精華
0 
積分
36 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2011-2-15 
最後登錄
2014-6-28 
3#
發表於 2013-6-22 13:18 | 只看該作者
回復 2# softsadwind

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

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
4#
發表於 2013-6-24 14:22 | 只看該作者
回復 3# home1913

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

    Range([A2],[A65535].End(xlUp).select
字典兩各字 還真難理解

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題