帖子: 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)

附件一

QQ.png (8.95 KB)

附件一

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2014-11-23 04:37 | 只看該作者

大大你們好
我是使用錄製聚集的方式弄一個關於資料剖析的程式
主要是想把Item Version Part number ...
s13983037 發表於 2014-11-23 00:22

Sub nn()
Dim iI%, iJ%, iA%
Dim vA
vA = Split([A1])
iA = UBound(vA)
iI = 0
Do While iI <= iA
If Trim(vA(iI)) = "" Then
For iJ = iI To iA - 1
vA(iJ) = vA(iJ + 1)
Next
iA = iA - 1
ReDim Preserve vA(iA)
iI = iI - 1
End If
iI = iI + 1
Loop
[A5].Resize(, UBound(vA)) = vA
End Sub

複製代碼

TOP

s13983037

中學生 Rank: 2

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

3^#

發表於 2014-11-23 14:03 | 只看該作者

回復 2# luhpro

大大您好我想要請問一下
定義以下兩個是要做甚麼的阿?? 看不太懂可以解釋這個程式碼再跑甚麼嗎我對於VBA是初學者感謝
vA = Split([A1])
iA = UBound(vA)

TOP

s13983037

中學生 Rank: 2

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

4^#

發表於 2014-11-23 14:33 | 只看該作者

回復 2# luhpro

大大您好我可能沒有表達得很好其實我是想弄成
對同一個儲存格開剖析附蓋上去也沒關係

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^#

發表於 2014-11-25 23:46 | 只看該作者

回復 luhpro
大大您好我想要請問一下
定義以下兩個是要做甚麼的阿?? 看不太懂可以解釋這個程 ...
s13983037 發表於 2014-11-23 14:03

vA = Split([A1])
對儲存格 [A1] 裡的字串做切割, 以空格為切割點, 切割出來的子字串依序放在 VA 陣列內.

iA = UBound(vA)
儲存迴圈處理時的最大值(即目前一維陣列 VA 內元素的個數)

回復 luhpro
大大您好我可能沒有表達得很好其實我是想弄成
對同一個儲存格開剖析附蓋上去也 ...
s13983037 發表於 2014-11-23 14:33

看不懂.
你是要以空格做為分割的依據?
若是, 上述程式就已實現.

還是固定文字長度做為分割的依據?
可參照底下函數定義抓取你要的字串
A=Left(sStr, X) ' A字串設為 sStr 字串從左邊算起 X 個字
A=Mid(sStr, B, C) ' A字串設為 sStr 字串的第 B 個字開始取 C 個字
A=Right(sStr, D) ' A字串設為 sStr 字串從右邊算起 D 個字

TOP