在excel中使用Vlookup返回多个值

Question

我有一个 Excel 表设置为自动计算一周中的每一天的会议。 我想写一个公式来返回我安排的所有会议日期（最好用逗号分隔），但我遇到了一些困难。 使用 Vlookup，我只能让它返回第一个日期。

例如，这是我的数据的样子：

         A                                 B                            C
 Initial Meetings          Follow-up Meetings            Date
         1                                1                       7/29/2015
         0                                1                       7/30/2015
         1                                1                       7/31/2015
         0                                0                       8/1/2015
         0                                0                       8/2/2015

Answer 1

您无法使用vLookup执行此操作。

这可以在VB脚本中相对容易地完成，但是会影响可移植性，因为如果不是大多数用户默认情况下禁用宏，则许多情况下，并且在许多情况下，由于其公司禁用了宏并使其成为用户不应该使用的策略，因此阻止了用户使用宏。他们。

如果您对Macros没问题，可以将以下内容放入新模块中 ，然后以与使用=MultiVlookup(lookup_value,table_array, col_index_num)相同的方式使用=MultiVlookup(lookup_value,table_array, col_index_num) ，它应该为您提供以逗号分隔的多个匹配项列表：

Public Function MultiVlookup(find_value, search_range, return_row)
  Dim myval ' String to represent return value (comma-separated list)
  Dim comma ' Bool to represent whether we need to prefix the next result with ", "
  comma = False
  'Debug.Print find_value.value, return_row
  For Each rw In search_range.Rows ' Iterate through each row in the range
    If rw.Cells(1, 1).value = find_value Then ' If we have found the lookup value...
      If comma Then  ' Add a comma if it's not the first value we're adding to the list
        myval = myval + ", "
      Else
        comma = True
      End If
      myval = myval + Str(rw.Cells(1, return_row).value)
    End If
  Next
  MultiVlookup = myval
End Function

这可能不是最干净的方法，它也不是vlookup的直接副本（例如，它不像vlookup那样具有第四个“范围查找”参数），但是它适用于我的测试：

最后，我最初的建议（以防其他人使用-这不是该问题的确切解决方案）是：

我没有亲自尝试过，但是此链接显示了我认为您可能正在寻找的内容。

Answer 2

很棒的代码，但不要忘记添加以下内容是您使用 Option Explicit：

Dim rw As Range

车轮