1、在C列輸入張三李四等人名，在D列輸入電話號碼。2、在B1輸入=IF(ISERROR(INDEX(D:D,MATCH(A1,C:C,0),1))=TRUE,"",INDEX(D:D,MATCH(A1,C:C,0),1))3、向下複製單元格（即單擊B1，點B1右下角的填充柄向下拉）。然後在A列的任何位置輸入姓名，對應的B列即可顯示出電話號碼。

首先你要有一個原始的資料庫來告訴excel，111表示的是綠，121表示的是紅，131表示的是藍。

如果你要用函式來實現這個問題，那你這個資料庫可以是一列原始的表格，提前在兩列寫好一一對應的關係。

比如你的原始資料存在於sheet2的A列和B列。然後，你在現在“綠”的地方寫公式：=if(l7"",vlooup(l7,sheet2!a:b,2,),"")

下拉填充就可以了。

當然，如果你的資料並不多，你也可以直接把資料庫放到公式當中去：

=LOOKUP(L7,{111,121,131,141},{"綠","紅","藍","粉"})

如果你需要用VB來實現，那需要把你的資料庫寫到vb陣列程式碼中去。