返回列表 上一主題 發帖

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

luhpro

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

luhpro

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

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題