返回列表 上一主題 發帖

[發問] 求助 split問題 感恩

感謝樓上兩位大大的幫忙

另外 請教yen956

1.  num=""  代表的是?

2.另外假設  A1儲存格是 0911王小明   要如何分隔成B1=0911  C1=王小明

因為0911的零會被省略掉  變成911

感恩

TOP

因原字串沒有空白, 故不能用空白去 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

http://blog.xuite.net/hcm19522/twblog/359339379
類似題

TOP

小弟的程式碼 都無法執行  請幫忙指點修改  感恩

TOP

        靜思自在 : 唯其尊重自己的人,才更勇於縮小自己。
返回列表 上一主題