返回列表 上一主題 發帖

[發問] 篩選設公式的巨集

[發問] 篩選設公式的巨集

請教各位高手,我需要將TOP系列產品的交期另外Vlookup到原來的資料內,我是用土法錄製的方式

Selection.AutoFilter    '篩選   
    ActiveSheet.Range("$A$1:$I$305").AutoFilter Field:=1, Criteria1:=Array( _
        "TOP*"), Operator:=xlFilterValues              '篩選出所有TOP產品   
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],WIP!C[-3]:C[4],8,0)"
    Range("E6").Select                       '將第一個TOP交期設定Vlookup公式   
    Selection.FillDown        '將公式下拉複製到所有篩選出來的欄位   
    Selection.AutoFilter         '將篩選取消

但是...
1.每次篩選後第一個TOP產品的位置不會固定在E6
2.執行第二次時Selection.FillDown無效
請各位高手指點,謝謝!
ESOD_問題0906.zip (202.25 KB)
Adam

請問有那位大大可以協助嗎?謝謝!
Adam

TOP

原來是我的問題放錯版了,真是感謝 GBKEE將問題移過來
感謝Hsieh大的解答,剛才小試了一下,OK! 謝謝!
Adam

TOP

        靜思自在 : 人要自愛,才能愛普天下的人。
返回列表 上一主題