[求助] 小弟跪拜求教各位大神！！！！

lucasmnp

小弟，有一个不惑之题，如EXCEL.....
如何将A列的数据，先将原数据变成大写，然后在指定字母与数字之间加上“-”（结果就是得出B1的效果），
这VBA是如何写呢，谢谢大神们！！

microyip

Ucase转换大写，用正则把英文与数字分开再加杠

donghui2363

Sub ??д()
Dim i
arr = Range("a1:a13")
For i = 1 To 13
    arr(i, 1) = UCase(Cells(i, 1))
Next i
For j = 1 To UBound(arr)
    Cells(j, 3) = Mid(arr(j, 1), 1, 5) & "-" & Mid(arr(j, 1), 6, 2) & " " & Mid(arr(j, 1), 8, 3) & " " & Mid(arr(j, 1), 11, 5) & " " & Mid(arr(j, 1), 16, 2) & " " & Mid(arr(j, 1), 19, 2)
Next j
End Sub

小小鸟前滚翻

1. =LEFT(UPPER(A1),5) & "-" & MID(UPPER(A1),6,2) & " " & MID(UPPER(A1),8,3) & " " & MID(UPPER(A1),11,5) & " " & MID(UPPER(A1),16,2) & " " & VALUE(MID(UPPER(A1),19,2))

复制代码

就是一个公式