不需要VBA程式設計，用公式就可以。假設表格都在同一個Excel檔案中，分別為Sheet1，Sheet2在新的Sheet（例如Sheet3），A列，貼上原來兩張表的A列去重後的資料，例如：一二三四B列計算排列數（透過公式），例如，在單元格B1輸入公式：=COUNTIF(Sheet1!A:A,A1)*COUNTIF(Sheet2!A:A,A1)然後公式往下拉，拉到最後一行。從C、D、E列，透過公式正式得到資料，例如，在C1單元格輸入公式：=A1在D1單元格輸入公式：=Sheet1!C1在E1單元格輸入公式：=Sheet2!C1在C2單元格輸入公式：=IF(COUNTIF(INDIRECT("C1:C"&(ROW()-1))),A1)<VLOOKUP(A1,A:B,1,FALSE),A1,INDIRECT("A"&(MATCH(A1,A:A,0)+1)))在D2單元格輸入公式：=IF(C2<>C1,VLOOKUP(C2,Sheet1!B:C,2,FALSE),IF(COUNTIF(Sheet2!B:B,C2)>COUNTIFS(INDIRECT("C1:C"&(ROW()-1))),C2,INDIRECT("D1:D"&(ROW()-1))),D1),D1,INDIRECT("Sheet1!C"&(COUNTIF(INDIRECT("C1:C"&(ROW()-1)))/COUNTIF(Sheet2!B:B,C2)+MATCH(C2,Sheet1!B:B,0))))在E2單元格輸入公式：=IF(D2<>D1,VLOOKUP(C2,Sheet2!B:C,2,FALSE),INDIRECT("Sheet2!C"&(COUNTIF(INDIRECT("C1:C"&(ROW()-1)))/COUNTIF(Sheet2!B:B,C2)+MATCH(C2,Sheet2!B:B,0)))然後把C2、D2、E2單元格公式，往下拉即可。