Удалить первый конкатат в пустую строку

Question

в настоящее время с кодами ниже, вывод будет ~ abc~ etc~ etc~. Как мне удалить первый ~ . Таким образом, он должен начинаться с ab c сразу, а не ~ .

Function SpecialLookup(lookup_value As String, src_rng As Range, column_index As Long)

    Dim rng As Range
    Dim xResult As String
    xResult = ""
    For Each rng In src_rng
        If rng = lookup_value Then
            xResult = xResult & "~ " & rng.Offset(0, column_index - 1).Value
        End If
    Next
    SpecialLookup = xResult
End Function

Answer 1

Mid должен сделать трюк

---

SpecialLookup = Mid(xResult, 3, Len(xResult))

Answer 2

Мне нравится этот шаблон:

Function SpecialLookup(lookup_value As String, src_rng As Range, column_index As Long)
    Dim rng As Range
    Dim xResult As String, sep as String
    For Each rng In src_rng
        If rng = lookup_value Then
            xResult = xResult & sep & rng.Offset(0, column_index - 1).Value
            sep = "~ " '<<<<<
        End If
    Next
    SpecialLookup = xResult
End Function

Answer 3

другой вариант - IF:

Function SpecialLookup(lookup_value As String, src_rng As Range, column_index As Long)

    Dim rng As Range
    Dim xResult As String
    xResult = ""
    For Each rng In src_rng
        If rng = lookup_value Then
            If xResult = "" Then
                xResult = rng.Offset(0, column_index - 1).Value
            Else
                xResult = xResult & "~ " & rng.Offset(0, column_index - 1).Value
            End If
        End If
    Next
    SpecialLookup = xResult
End Function