[已解决]VBA自定义函数问题,请高手解答!

leon01314 · 发表于 2013-11-18 15:15

下面这个自定义函数是将文本或数字根据条件合并,但是只能设置一个条件,请问高手如何实现多条件合并.

Function HB(if_range, Optional criteria, Optional hb_range, Optional separator)
If IsMissing(separator) Then separator = " "
If IsMissing(hb_range) Then Set hb_range = if_range
If IsMissing(criteria) Then
      For Each c In hb_range.Cells
         t = t & separator & c
      Next
Else
      If Left(criteria, 1) = "F" Then
         For i = 1 To if_range.Cells.Count
            If InStr(if_range.Cells(i), Mid(criteria, 2)) Then t = t & separator & hb_range.Cells(i)
         Next i
      Else
         For i = 1 To if_range.Cells.Count
            If Application.Evaluate(if_range.Cells(i) & criteria) Then t = t & separator & hb_range.Cells(i)
         Next i
      End If
End If
HB = Mid(t, 2)
End Function

如附图所示,我要将11月之前,负责人为高强的配合人合并在一个单元格中,中间用逗号隔开.

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-11-18 18:27