å设æ°æ®åæ¾äºsheet1ä»A1å¼å§çAåï¼ä»æ§ä»¶å·¥å
·ç®±æ·»å ä¸ä¸ªå½ä»¤æé®ï¼å
¶ä»£ç å¦ä¸
Dim i As Integer, j As Integer, k As Integer, s As String, m As String, f As String
i = 1
Do While Sheet1.Cells(i, 1).Value <> ""
s = Sheet1.Cells(i, 1).Value
f = Left(s, 1)
k = 2
For j = 2 To Len(s)
m = Mid(s, j, 1)
If Asc(m) >= 48 And Asc(m) <= 57 Then
If k = 2 Then
Sheet1.Cells(i, k).Value = f & m
Else
Sheet1.Cells(i, k).Value = m
End If
k = k + 1
End If
Next j
i = i + 1
Loop
ç¹è¯¥å½ä»¤æé®è¿è¡ã
å¨EXCEL2003è°è¯éè¿ã
温馨提示:答案为网友推荐,仅供参考