数据互换VBA

nnsea

Sub 数据互换()
arr = [a1].CurrentRegion
For Each a In arr
    arr1 = Split(a, "-")
    n = n + 1
    Cells(n, "c") = arr1(1) & "-" & arr1(0)
Next
End Sub