close
EXCEL 陣列參照??函數設定??比對用設定
想請問一下如果我有兩個分頁分頁1ＡＢＣＤ1製品設備1設備2設備32001ABC3002ACD4003BC5004ABD6005BC分頁2ＡＢＣＤE1設備製品1製品2製品3...顯示更多想請問一下如果我有兩個分頁分頁1ＡＢＣＤ1製品設備1設備2設備32001ABC3002ACD4003BC5004ABD6005BC分頁2ＡＢＣＤE1設備製品1製品2製品3製品42A0010020043B0010030044C0010020030055D002004以分頁1作為資料庫如何設定在分頁2的A欄打上設備右邊就自動出現有使用到此設備的製品呢???請問要用函數還是要用什麼VBA才能做到請大大替我解答更新:我真的少打了但是我現在實際使用遇到問題...請大大再幫忙製品001有設備UM014、UM016、UM019製品002有設備TM007、BM003、GM025、T017製品003有設備GM035、GM018、QM030製品004有設備BM005、SF001、SF010、SM045設備搜尋打尚T017TM007QM030BM005GM049GM025設備T017與GM049製品出不來這是因為??
建議用VBA，程式碼請參考： Sub test() Dim i, j, k, m, n Sheets("分頁2").Range("B2:" & Sheets("分頁2").Cells(Sheets("分頁2").Range("A65536").End(xlUp).Row, Sheets("分頁2").Range("A1").End(xlToRight).Column).Address(0, 0)).ClearContents m = 0 For k = 2 To Sheets("分頁2").Range("A65536").End(xlUp).Row For i = 2 To Sheets("分頁1").Range("A65536").End(xlUp).Row For j = 2 To Sheets("分頁1").Range("A1").End(xlToRight).Column If Sheets("分頁1").Cells(i, j) = Sheets("分頁2").Cells(k, 1) Then n = Application.WorksheetFunction.CountIf(Sheets("分頁1").Range("B2:" & Sheets("分頁1").Cells(i, j).Address(0, 0)), Sheets("分頁1").Cells(i, j)) If n - m > 0 Then Sheets("分頁2").Cells(k, Sheets("分頁2").Cells(k, 256).End(xlToLeft).Column + 1) = Sheets("分頁1").Cells(i, 1) End If End If Next j Next i Next k m = n End Sub 請試試看 註：您的分頁2的"B"是否少了005一項? 2014-07-26 00:16:35 補充： 設備T017與GM049製品出不來這是因為?? 答：1.我在EXCEL 2010版運作OK啊！ 2.T017請檢查是否前後有空白字元 3.您的分頁1並沒有GM049這項資料，分頁2自然搜尋不到
到下面的網址看看吧??http://*****http://www.FunP.Net/2361152014-07-2514:19:28補充：http://www.FunP.Net/236115
以上文章來自奇摩知識家，如有侵犯請留言告知
https://tw.answers.yahoo.com/question/index?qid=20140724000010KK11367