Board logo

標題: 資料編碼截取 [打印本頁]
作者: oak0723-1    時間: 2017-6-1 22:39     標題: 資料編碼截取

本帖最後由 oak0723-1 於 2017-6-1 22:52 編輯

於b欄位輸入編碼
希望能如說明依序截取出所須位置之編碼
作者: prin.huang    時間: 2017-6-2 11:08

  1. Sub div()
  2.     Dim I%, J%
  3.     Dim lenI() As Variant, str1() As Variant, str2(27, 13) As String
  4.     lenI = Array(8, 4, 1, 1, 8, 8, 5, 7, 9, 4, 1, 1, 4)
  5.     str1 = Worksheets("Sheet2").Range("B2:B28").Value
  6.    
  7.     For I = 1 To 27
  8.         For J = 1 To 13
  9.             str2(I, J) = Left(str1(I, 1), lenI(J))
  10.             str1(I, 1) = Trim(Right(str1(I, 1), Len(str1(I, 1)) - lenI(J)))
  11.         Next J
  12.     Next I
  13.     Worksheets("Sheet2").Range("C2:O28") = str2
  14. End Sub
複製代碼
作者: hcm19522    時間: 2017-6-2 14:22

C2:O28=MID($B2,CHOOSE(COLUMN(A1),1,9,15,16,17,25,33,38,45,54,58,59,60),CHOOSE(COLUMN(A1),8,4,1,1,8,8,5,7,9,4,1,1,4))
作者: hcm19522    時間: 2017-6-2 14:50

http://blog.xuite.net/hcm19522/twblog/510417616
作者: oak0723-1    時間: 2017-6-6 09:24

謝謝各位先進的指教
作者: oak0723-1    時間: 2017-6-6 09:30

另外請教各位先進一個概念的問題
小弟有一組檔案數達千位數以上的text的文字檔
每個文字檔的格式都一樣(如這個問題的格式)
小弟想做一個程式一次可讀取所指定數量的檔案並依小弟所想做的計算後再呈現小弟所需要的表格及統計表
這樣的構想
可以用哪種方式(指用何種程式語言編寫最為方便)達成?



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)