GBKEE

回復 1# cmo140497

1. Sub 巨集2()
   
2.     Dim MyTEXT As String, ar, j As Integer   
   
3.     MyTEXT = "AAA:000 001 002 003"
   
4.     j = 1
   
5.     If MyTEXT Like AAA & "*" Then
   
6.             Cells(1, j).Value = Split(MyTEXT, ":")(0)
   
7.             ar = Split(Split(MyTEXT, ":")(1), " ")
   
8.             With Cells(1, j + 1).Resize(, UBound(ar) + 1)
   
9.                 .Value = ar
   
10.                 .Value = .Value       '範圍的值=範圍的值
    
11.             End With
    
12.             'Result : Cells(1,1)=AAA , Cells(1,2)=000 , Cells(1,3)=001 , Cells(1,4)=002, Cells(1,5)=003
    
13.             '如何將000 001 002 003 轉換為數字Cells(1,2)=0 , Cells(1,3)=1 , Cells(1,4)=2, Cells(1,5)=3
    
14.     End If
    
15. End Sub

複製代碼