连续的引用指示符成组为字符串，并使用第一个和最后看到的分隔符"-“(VBA)

Sub ConcatenateAndSplit()
    Dim ref1 As String
    Dim ref2 As String
    Dim ref3 As String
    Dim combined As String
    Dim separator As String
    Dim parts() As String
    
    ' 设置引用指示符的值
    ref1 = "A"
    ref2 = "B"
    ref3 = "C"
    
    ' 使用连接运算符将引用指示符连接成一个字符串
    combined = ref1 & "-" & ref2 & "-" & ref3
    
    ' 设置分隔符
    separator = "-"
    
    ' 使用Split函数根据分隔符进行分割
    parts = Split(combined, separator)
    
    ' 输出结果
    Debug.Print "第一个引用指示符: " & parts(0)
    Debug.Print "最后一个引用指示符: " & parts(UBound(parts))
End Sub

第一个引用指示符: A
最后一个引用指示符: C