Question

我有两列数据。第一列是唯一整数值的列表。第二列是一些字符串值的列表，其中一些值重复。我想写一个简短的宏（或单元格公式），它将返回字符串旁边的整数值。

Integers   Strings    Ideal Printout
   0         Bob           0
   1         Joe           1,2
   2         Joe           1,2 
   3         Susan         3,5  
   4         Sally         4
   5         Susan         3,5

对不起，如果上述情况不明确。很难说清楚这一点。如果打印输出是每个整数的列，我也很高兴。

Answer 1

这对我有用：

Public Function GETMATCHES(ByVal match As String, ByVal cells As Range, ByVal columnOffset As Integer) As String
    Dim result As String
    Dim cell As Range
    For Each cell In cells
        If cell.Value2 = match Then
            result = result & "," & cell.Offset(0, columnOffset).Value2
        End If
    Next
    If Len(result) > 0 Then
        result = Right(result, Len(result) - 1)
    End If
    GETMATCHES = result
End Function

我这样用过：

=GETMATCHES(B2,$B$2:$B$7,-1)

返回下一个字符串值的整数值列表

1 个答案: