匹配一个单元格区域中的任何单元格与另一个单元格区域的单元格

Col A | Col B | Col C | Col D | Col E | row1 Roles | Create | Review | Approve | Name | row2 PM/Dev/IT | SQA | PM/Dev/IT | SQA* | Ryan (IT) | PM/Dev | SQA | N/A | SQA | Casey (SQA) | PM | DEV | IT | PM | Shannon (PM) | DEV | IT | QA | SQA | row8 SQA* | rw9 SQA** | Other____ | rw12 PM | CellB13=IF((A13=B2:D2), F4, "N/A") | SQA | CellB14=IF((A13=B2:D2), F5, "N/A") | rw13 IT | CellB15=IF((A13=B2:D2), F6, "N/A") | 

我想如果B13 = YES

如果angular色列在创build/审核/或批准行中，则显示PM值B13 / B14 / B15将在相应的单元格中显示名称值

我想避免使用VBA解决scheme

Answer 1

试试这个小UDF（） ：

 Public Function AnyMatch(r1 As Range, r2 As Range) As String Dim v As Variant, r As Range, rTemp As Range AnyMatch = "NO" For Each r In r1 v = r.Value Set rTemp = r2.Find(What:=v, After:=r2(1), LookAt:=xlPart) If rTemp Is Nothing Then Else AnyMatch = "YES" Exit Function End If Next r End Function 

用户定义的函数（UDF）非常易于安装和使用：

1. ALT-F11调出VBE窗口
2. ALT-I ALT-M打开一个新的模块
3. 粘贴东西，closuresVBE窗口

如果保存工作簿，则UDF将随之保存。 如果您在2003年以后使用的是Excel版本，则必须将该文件另存为.xlsm而不是.xlsx

要删除UDF：

1. 如上所示调出VBE窗口
2. 清除代码
3. closuresVBE窗口

从Excel中使用UDF：

 =AnyMatch(A1:C1,H1:Z1) 

要了解有关macros的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

有关UDF的具体信息，请参阅：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

macros必须启用这个工作！