返回列表 上一主題 發帖

[發問] 修改條件範圍

回復 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

        靜思自在 : 滴水成河。粒米成蘿,勿輕己靈,勿以善小而不為。
返回列表 上一主題