返回列表 上一主題 發帖

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

s13983037

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

QQ.png (8.95 KB)

附件一

QQ.png

收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2014-11-23 04:37 | 只看該作者
大大你們好
我是使用錄製聚集的方式弄一個關於資料剖析的程式
主要是想把Item   Version Part number     ...
s13983037 發表於 2014-11-23 00:22
  1. Sub nn()
  2.   Dim iI%, iJ%, iA%
  3.   Dim vA
  4.   
  5.   vA = Split([A1])
  6.   iA = UBound(vA)
  7.   iI = 0
  8.   Do While iI <= iA
  9.     If Trim(vA(iI)) = "" Then
  10.       For iJ = iI To iA - 1
  11.         vA(iJ) = vA(iJ + 1)
  12.       Next
  13.       iA = iA - 1
  14.       ReDim Preserve vA(iA)
  15.       iI = iI - 1
  16.     End If
  17.     iI = iI + 1
  18.   Loop
  19.   [A5].Resize(, UBound(vA)) = vA
  20. End Sub
複製代碼

TOP

s13983037

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

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

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題