- ©«¤l
- 219
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 243
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-4-18
- ³Ì«áµn¿ý
- 2022-2-7
|
¦^´_ 28# HSIEN6001
¦p¤W
'¥N¸¹»P¦WºÙ©î¸Ñ,µøÓ¤H»Ý¨D;¦¹¬q¥i¬Ù
Dim i%, strn$, Rng As Range
Application.ScreenUpdating = False
Set Rng = Range("F3")
For i = 1 To Len(Rng)
strn = Mid(Rng, i, 1)
If Not IsNumeric(strn) Then
Rng.Offset(0, 1) = "'" & Mid(Rng, 1, i - 1)
Rng.Offset(0, 2) = Mid(Rng, i)
Exit For
End If
Next i
Application.ScreenUpdating = True
'¥N¸¹»P¦WºÙ©î¸Ñ¡A³o¬q»yªk¤]¥i°Ñ¦ÒGBKEEªºCode
Dim i%, Rng As Range
Application.ScreenUpdating = False
Set Rng = Range("F3")
Do
For i = 1 To Len(Rng)
If Not IsNumeric(Mid(Rng, i, 1)) Then
Rng.Offset(0, 1) = "'" & Mid(Rng, 1, i - 1)
Rng.Offset(0, 2) = Mid(Rng, i)
Exit For
End If
Next i
Set Rng = Rng.Offset(1)
Loop Until Rng = ""
Application.ScreenUpdating = True |
|