巨集公式中 篩選後 合併右列

k123456770

請問各位先進

巨集公式中

篩選後

如何將 篩選後 的數值 合併右列儲存格?

k123456770

javascript:;

k123456770

javascript:;

不好意思 首次Po文

還勞煩兩位版主訂正..

Hsieh

回復 3# k123456770
問題請描述清楚，一個錯誤的巨集，並未加入任何問題說明
這樣的檔案不如別放

k123456770

Sub Macro4()
'
' Macro4 Macro
'

'
    Sheets("統計資料").Select
    Range("H3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-3],'Key In 資料'!C:C[1],2,0)"
    Range("H3").Select
    Selection.AutoFill Destination:=Range("H3:H" & [H3].CurrentRegion.Rows.Count)
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$I$20").AutoFilter Field:=8, Criteria1:="已出"
    Range("I1").Select
    ActiveCell.Offset(1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillLeft
End Sub

首先 個人預設為

1.Key In 資料 分頁中
"H2"輸入編號 "I2"已預設公式 會自行 轉換 已出or取消


2.統計資料分頁中
巨集 會自動幫我 Vlookup 更新H欄
更新後 值化 篩選 已出or取消   (此部分 可能也需要請教先進 是否可選擇 篩選 "非N/A")


3.篩選出 已出 or 取消後
將H欄 平移覆蓋 I欄(進度)  (小弟目前最大的困難點為 無法讓他平移覆蓋...)

k123456770

再補上一次檔案