請教網路下載資料如何以固定欄寬分開(無分隔符號)

ten999

下載資料為(無分隔符號有固定欄寬03/18~03/20,03/11~03/15     一組固定欄寬為11字元):
range("a1")=03/18~03/2003/11~03/1503/04~03/08
請問如何將資料以陣列分開為
cells(2,1)=03/18  cells(2,2)=03/20
cells(3,1)=03/11  cells(3,2)=03/15
.
.
因資料很多利用公式mid無法處理!
謝謝!

GBKEE

回復 1# ten999
傳上檔案看看

ten999

此為下載資料壓縮檔,謝謝!

ten999

不好意思 壓縮檔錯誤
重新上傳
謝謝!

GBKEE

回復 4# ten999
~01/04??/18~03/2003/11 少了??
試試看

   

1. Option Explicit
   
2. Sub EX()
   
3.     Dim A As String, I As Integer, S As Variant
   
4.     Dim W As String
   
5.     A = Trim([A1])    '清除字串前後有空白的字串
   
6.                       '"  AB C DE    " -> "AB C DE"
   
7.     W = 11            '一組固定欄寬為11字元
   
8.     For I = 1 To Len(A) Step W
   
9.         S = Split(Mid(A, I, W), Mid(A, I + 5, 1)) '指定的字串->Mid(A, I + 5, 1))="~"
   
10.         'Split :傳回以指定的字串分割的一維陣列
    
11.         Cells(Int(I / W) + 2, 1) = S(0)   '陣列第一個元素值
    
12.         Cells(Int(I / W) + 2, 2) = S(1)   '陣列第二個元素值
    
13.     Next
    
14. End Sub

複製代碼

ten999

問題已解決 ok
謝謝!