返回列表 上一主題 發帖

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

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

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


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

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

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

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

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

回復 1# 金貝貝

2.gif
2013-4-10 22:15

find record1.rar (20.5 KB)
ss

TOP

回復 1# 金貝貝

Version 2
Simplified VBA code find record1v2.zip (21.11 KB)
ss

TOP

回復 2# sunnyso


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

    原 ActiveCell.FormulaR1C1 = "=ISERR(FIND(R1C2,RC[-1]))"
    改 ActiveCell.FormulaR1C1 = "=ISERR(FIND(R1C2,PHONETIC(RC[-4]:RC[-1])))"
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 4# ML089

請問使用=PHONETIC()有什麼限制嗎?

它比用 =CONCATENATE( A2 ,  ,  ,  ,  ,  ,Z2) 和 = A2,&...,..., & Z2 簡潔很多
ss

TOP

回復  ML089

請問使用=PHONETIC()有什麼限制嗎?

它比用 =CONCATENATE( A2 ,  ,  ,  ,  ,  ,Z2) 和 = ...
sunnyso 發表於 2013-4-11 12:03



    僅取文字格接合,數字格忽略
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

哇,太感謝前輩們了,今晚就回家來試試看!

TOP

回復 1# 金貝貝

添加非VBA法
find record1.rar (79.71 KB)
ss

TOP

哈哈,我也不能下載~~我只好每天上來領積分任務,希望早點升級下載回去用囉>U</
也祝你早早升級喔~一起加油吧XD~~

TOP

似乎也遇到跟樓樓一樣的問題~努力增加積分去(淚奔)

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題