- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
4#
發表於 2015-12-5 17:51
| 只看該作者
因原字串沒有空白, 故不能用空白去 Split
試試看- Sub splitTXT()
- Dim Str1 As String
- Dim I As Integer, J As Integer, ST As Integer
- For I = 2 To [A65536].End(xlUp).Row
- J = 1
- Num = ""
- Str1 = Cells(I, 1)
- For J = 1 To Len(Str1)
- ST = InStr(1, "0123456789", Mid(Str1, J, 1), 1)
- If ST = 0 Then
- Cells(I, 2) = Left(Str1, J - 1)
- Cells(I, 3) = Right(Str1, Len(Str1) - J + 1)
- Exit For
- End If
- Next
- Next
複製代碼 |
|