CVLOOKUP自定义合并单元格内容函数

Public Function CVLOOKUP(table_array)
Dim rng As Range
Dim xx As String, yy As String
xx = ""
For Each rng In table_array
If UCase(rng) <> "OK" And rng <> "" Then
CVLOOKUP = CVLOOKUP & xx & yy & rng
xx = ","
yy = Chr(10)
End If
Next
Select Case CVLOOKUP
Case UCase(OKOKOKOKOKOK)
CVLOOKUP = "OK"
Case Else
End Select
End Function



Public Function CVLOOKUP(table_array)
Dim rng As Range
Dim xx As String, yy As String, i As Integer, j As Integer
xx = ""
i = 0: j = 0
For Each rng In table_array
i = i + 1
If UCase(rng) <> "OK" And rng <> "" Then
CVLOOKUP = CVLOOKUP & xx & yy & rng
xx = ","