返回列表 上一主題 發帖

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

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

下載資料為(無分隔符號有固定欄寬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無法處理!
謝謝!

回復 1# ten999
傳上檔案看看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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

Book1.rar (5.62 KB)

TOP

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

Book1.rar (5.52 KB)

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

問題已解決 ok
謝謝!

TOP

        靜思自在 : 【行善要及時】行善要及時,功德要持續。如燒開水一般,未燒開之前千萬不要停熄火候,否則重來就太費事了。
返回列表 上一主題