[發問] 各位前輩好有個篩選及搬移一直昨不出來想請教

jack636725

各位前輩我一直想做個篩選程式想請教一下該如何寫比較及搬移，我的問題如下
我開啟一個EXCEL檔案裡面有4頁
第一頁為資料庫(A6~A15為數字1~10、B6~B15為姓名或名稱)
第二頁我畫了一張表格按照遊覽車位置及餐桌位置畫格子並將1~10數字不規則方式填入
例如:第一頁3號(A8格)右邊名字是小明第二頁遊覽車C12填入3及第二頁餐桌E8填入3   則第三頁C12自動填入小明及第四頁A15填入小明
下面分頁為    第一頁:檔案      第二頁:編號      第三頁:車位     第四頁:桌位
之前有用=IF((A1<>"")*COUNTIF(Sheet1!A:B,A1),VLOOKUP(A1,Sheet1!A:B,2,),"") 判斷但是不太實用
請達人幫忙解惑感謝

genes

回復 1# jack636725


    請附上檔案或圖像

jack636725

回復 2# genes

下載 (8.38 KB)

2013-10-21 22:44

下載 (8.38 KB)

2013-10-21 22:45

下載 (21.28 KB)

2013-10-21 22:45

下載 (22.4 KB)

2013-10-21 22:45

下載 (67.59 KB)

2013-10-21 22:45

下載 (40.15 KB)

2013-10-21 22:45

判斷座位.rar (8.36 KB)

下載次數: 2

2013-10-21 22:46

在頁數二填入數字頁數三及四相關位置放入第一頁數字右邊中文字

joey0415

回復 3# jack636725


    這個應該用vlookup就可以解決了，以前就這樣用過

jack636725

回復 4# joey0415

謝謝回應
可寫一段讓我參考嗎?感謝

joey0415

回復 5# jack636725

參考附件

還可以修得更好些

luhpro

回復 3# jack636725
Sheets("車位").[A5]==IF(ISERROR(VLOOKUP(編號!A5,檔案!$A$6:$B$15,2,0)),"",VLOOKUP(編號!A5,檔案!$A$6:$B$15,2,0))
Sheets("桌位").[A6]==IF(ISERROR(VLOOKUP(編號!G5,檔案!$A$6:$B$15,2,0)),"",VLOOKUP(編號!G5,檔案!$A$6:$B$15,2,0))
其他儲存格子照拉即可.
判斷座位-a.zip (9.88 KB)

下載次數: 5

2013-11-12 22:48

jack636725

真是太感謝各位大大，馬上試一下

jack636725

回復 7# luhpro


    真抱歉請問一下這個算VBA的東西嗎?我以前EXCEL只做簡單計算
    將公式放入格中也不知如何執行

GBKEE

回復 9# jack636725

VBA 如圖示模組中寫上程式碼

下載 (92.83 KB)

2013-11-22 07:54