oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-6-1 22:39 | 只看該作者

資料編碼截取

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

於b欄位輸入編碼
希望能如說明依序截取出所須位置之編碼

060601-說明.jpg (331 KB)

060601-格式分類.rar (4.56 KB)

樓主熱帖

oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2017-6-6 09:30 | 只看該作者

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

TOP

oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2017-6-6 09:24 | 只看該作者

謝謝各位先進的指教

TOP

hcm19522

大學生 Rank: 4

帖子: 1411
主題: 4
精華: 0
積分: 1421
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-5-19

熱烈參與勳章

4^#

發表於 2017-6-2 14:50 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/510417616

3247.png (191.64 KB)

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

hcm19522

大學生 Rank: 4

帖子: 1411
主題: 4
精華: 0
積分: 1421
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-5-19

熱烈參與勳章

3^#

發表於 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))

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

prin.huang

中學生 Rank: 2

帖子: 44
主題: 4
精華: 0
積分: 84
點名: 0
作業系統: winxp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2016-10-12
最後登錄: 2021-11-10

2^#

發表於 2017-6-2 11:08 | 只看該作者

Sub div()
Dim I%, J%
Dim lenI() As Variant, str1() As Variant, str2(27, 13) As String
lenI = Array(8, 4, 1, 1, 8, 8, 5, 7, 9, 4, 1, 1, 4)
str1 = Worksheets("Sheet2").Range("B2:B28").Value
For I = 1 To 27
For J = 1 To 13
str2(I, J) = Left(str1(I, 1), lenI(J))
str1(I, 1) = Trim(Right(str1(I, 1), Len(str1(I, 1)) - lenI(J)))
Next J
Next I
Worksheets("Sheet2").Range("C2:O28") = str2
End Sub

複製代碼

TOP