vba单元格怎么在第一个和中间的还有最后一个加上不同的符号？

2832325625

vba单元格怎么在第一个和中间的还有最后一个加上不同的符号？

2832325625

A和C就是我原来的，B和D就是我要的结果。A和C列数字没有办法确定有多少，每个都不同

wanghongfei

Sub sdd()

a = Array(1, 3)

For k = 0 To UBound(a)

    Set r = Cells(1, a(k))
   
    r.Offset(0, 1) = "┑" & r
   
    i = 1
   
    Do While Cells(i, a(k)) <> ""
   
        Set r = Cells(i, a(k))
   
        
   
        If r.Row <> 1 And r.Row < Cells(Rows.Count, a(k)).End(3).Row Then
        
            r.Offset(0, 1) = "┃" & r
        
        End If
        
        i = i + 1
    Loop
   
    r.Offset(0, 1) = "┚" & r
Next

End Sub