返回列表 上一主題 發帖

[發問] 求助 split問題 感恩

yen956

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

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2015-12-6 04:40 | 顯示全部帖子
回復 5# 魷魚絲
針對 0911 修正, 試試看
  1. '
  2. Sub splitTXT()
  3.    Dim Str1 As String
  4.    Dim I As Integer, J As Integer, ST As Integer
  5.    For I = 2 To [A65536].End(xlUp).Row
  6.        J = 1
  7. '       Num = ""    這是測試時加上去的, 忘了去掉, Sorry!!
  8.        Str1 = Cells(I, 1)
  9.        For J = 1 To Len(Str1)
  10.            ST = InStr(1, "0123456789", Mid(Str1, J, 1), 1)
  11.            If ST = 0 Then
  12.                Cells(I, 2) = "'" & Left(Str1, J - 1)     '針對 0911 修正
  13.                Cells(I, 3) = Right(Str1, Len(Str1) - J + 1)
  14.                Exit For
  15.            End If
  16.        Next
  17.    Next
  18. End Sub
複製代碼

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
3#
發表於 2015-12-6 13:37 | 顯示全部帖子
回復 9# 准提部林
果然是好方法:
也學到了 Mid及Offset函數 的 簡又新 方法, 謝謝!!

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
返回列表 上一主題