帖子: 4
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: Win7
軟體版本: Excel2007.2010
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-2-2
最後登錄: 2013-7-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-2-2 14:03 | 只看該作者

[發問] Excel如何以關鍵字選取整列資料並複製到新工作表？

統計, 尋找, 條件, 篩選, Excel

各位前輩好，不好意思，我用Excel製作了一個記帳表活頁簿，如同以下這個連結所示(連結為Google雲端硬碟來源，請安心連結)

我以一個月為單位設立一個工作表，每個工作表內又細分日期、大項、小項、細節、(支出方式)、(收入方式)等等，若無法連結圖片，簡單以下示意圖：

表1
　　A　　Ｂ　　Ｃ　　Ｄ
1　日期　大項　小項　細節
2　5/01　伙食　早餐　飯糰
3　5/01　伙食　午餐　乾麵
4　5/02　印刷　名片　京畝名片
5　5/03　伙食　早餐　飯糰

表2
　　A　　Ｂ　　Ｃ　　Ｄ
1　日期　大項　小項　細節
2　6/01　伙食　早餐　飯糰
3　6/02　伙食　午餐　乾麵
4　6/04　印刷　大圖　京畝大圖
5　6/05　伙食　早餐　飯糰

我希望能在同一個活頁簿裡新開一個工作表(如圖中藍框)，
當我輸入某一個關鍵字，例如「京畝」(如圖中紅框)，
Excel可以自動幫我選取所有月份的工作表內的一整列資料，
包含日期、大項、小項、細節....(如圖中綠框)，
並複製到新工作表內，以幫助我快速統計這幾個月來所有和「京畝」有關的帳目。

想學起來之後可以應用在，例如說，我之後想統計這幾個月的早餐菜色和支出，可以不用一個一個去搜尋~
感謝各位前輩賜教~

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

2^#

發表於 2013-4-10 22:15 | 只看該作者

回復 1# 金貝貝

find record1.rar (20.5 KB)

ss

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

3^#

發表於 2013-4-11 11:06 | 只看該作者

回復 1# 金貝貝

Version 2
Simplified VBA code

find record1v2.zip (21.11 KB)

ss

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2013-4-11 11:09 | 只看該作者

回復 2# sunnyso

建議修改一行，增加查詢彈性，可以查 1月、早餐、伙食 ...等

原 ActiveCell.FormulaR1C1 = "=ISERR(FIND(R1C2,RC[-1]))"
改 ActiveCell.FormulaR1C1 = "=ISERR(FIND(R1C2,PHONETIC(RC[-4]:RC[-1])))"

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

sunnyso