=LEFT(A1,2)&":"&MID(A1,3,2)&":"&MID(A1,5,2)&":"&MID(A1,7,2)&":"&RIGHT(A1,2)
向下復制即可。
如果位數不定,得用宏自定義函數。同時按Alt和F11進入宏界面,點菜單的插入,模塊,粘貼如下代碼:
Function jmh(xStr As String) As String
Dim i As Integer
jmh = Left(xStr, 2)
For i = 2 To Int(Len(xStr) / 2) + (Len(xStr) Mod 2)
jmh = jmh & ":" & Mid(xStr, i * 2 - 1, 2)
Next
End Function
回到Excel,在B1輸入
=jmh(A1)
公式復制下去。