Excel 自定义函数 按条件连接文本
Function SumText(ByVal FRange As Range, FC, SRange As Range)
Dim FRow As Single
s = FRange.Worksheet.Name
SumText = ""
For FRow = FRange.Row To FRange.Row + FRange.Rows.Count - 1
If Worksheets(FRange.Worksheet.Name).Cells(FRow, FRange.Column).Value = FC Then
If SumText = "" Then
SumText = Worksheets(SRange.Worksheet.Name).Cells(FRow, SRange.Column).Value
Else
SumText = SumText & Chr(10) & Chr(13) & Worksheets(SRange.Worksheet.Name).Cells(FRow, SRange.Column).Value
End If
End If
Next
End Function