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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-1-10 18:52 | 只看該作者

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

[版主管理留言]

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

請問各位先進

巨集公式中

篩選後

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

樓主熱帖

k123456770

中學生 Rank: 2

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

2^#

發表於 2014-1-11 09:21 | 只看該作者

[版主管理留言]

GBKEE(2014/1/11 10:33): 將excel檔放進壓縮檔上傳

javascript:;

未命名.jpg (7.59 KB)

示意圖

未命名.jpg

TOP

k123456770

中學生 Rank: 2

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

3^#

發表於 2014-1-13 10:05 | 只看該作者

javascript:;

不好意思首次Po文

還勞煩兩位版主訂正..

Book1.rar (83.08 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2014-1-13 14:56 | 只看該作者

本帖最後由 Hsieh 於 2014-1-14 10:40 編輯

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

學海無涯_不恥下問

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取消