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

[版主管理留言]

Hsieh(2014-1-11 00:10): 請附檔案說明

請問各位先進

巨集公式中

篩選後

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

樓主熱帖

k123456770

中學生 Rank: 2

帖子: 42
主題: 4
精華: 0
積分: 56
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2014-1-10
最後登錄: 2019-5-9

6^#

發表於 2014-1-13 16:48 | 只看該作者

再補上一次檔案

Book1.rar (85 KB)

TOP

k123456770

中學生 Rank: 2

帖子: 42
主題: 4
精華: 0
積分: 56
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2014-1-10
最後登錄: 2019-5-9

5^#

發表於 2014-1-13 16:43 | 只看該作者

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欄(進度) (小弟目前最大的困難點為無法讓他平移覆蓋...)

統計.jpg (175.6 KB)

Key In.png (105.78 KB)

疑問.jpg (127.03 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章