返回列表下一主題上一主題發帖

[發問] 資料剖析(VBA)求解決

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-23 00:22 | 顯示全部帖子

[發問] 資料剖析(VBA)求解決

大大你們好
我是使用錄製聚集的方式弄一個關於資料剖析的程式
主要是想把Item Version Part number    Serial number    Description
                                          ↑       ↑             ↑                      ↑                         ↑
                                          A1       B1          C1                   D1                      E1
切割成每個資料對應到每個欄位中
舉Item 為例想要把Item 到Version前面的這個V之前的字串放到A1
舉Version 為例想要把Version 到Part number    前面的這個P之前的字串放到B1
可以套用到多個EXCEL分頁中由於Item到Version之前的空格不一定相同,可否有程式是抓取到V之前的字串放到A1中
以下為錄製程式碼不知是否正確是否有驗證的方法或是有大大可以直接解決這個問題
For a = 2 To Worksheets.Count
Worksheets(a).Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
      FieldInfo:=Array(Array(0, 1), Array(17, 1), Array(26, 1), Array(39, 1), Array(57, 1)) _
      , TrailingMinusNumbers:=True
Worksheets(a).Columns("A:A").EntireColumn.AutoFit
ActiveWindow.SmallScroll Down:=-60
Next

QQ.png (8.95 KB)

附件一