標題: 請教:一欄內有多筆資料,如何提取特定值的資料 [打印本頁]

---

作者: b31978    時間: 2013-5-13 09:45     標題: 請教:一欄內有多筆資料,如何提取特定值的資料

各位先進,有下列的問題,不知能不能協助解決!!
如圖:想針對"小李"這個特定值做為特定值,將小李的特定值提出,放置在旁....
[attach]14958[/attach]

---

作者: GBKEE    時間: 2013-5-13 10:32

回復 1# b31978
可詳看 VBA 說明
Filter 函數  傳回一個從零開始的陣列，該陣列包含基於指定篩選準則的一個字串陣列的子集。
Split 函數   傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
Replace 函數 傳回一個字串，該字串中指定的子字串已被取代成另一子字串，並且取代發生的次數也是指定的。

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, A As Variant, i As Integer, B As String
   
4.     For Each E In [AL12:AL26]  '範圍中的每一個成員(E)
   
5.         i = 0
   
6.         For Each A In Filter(Split(E, vbLf), "小李:", True)
   
7.             'Miscellaneous 常數 vbLf -> Chr(10) : 換行字元。
   
8.             B = Replace(A, "小李:", "")
   
9.             B = Replace(B, "PCS", "")
   
10.             i = i + B
    
11.         Next
    
12.         E.Offset(, 1) = IIf(i <> 0, i, "") '右邊第 1 欄
    
13.     Next
    
14. End Sub

複製代碼

---

作者: b31978    時間: 2013-5-13 12:05

謝謝,抓破腦改了好多天,還是大神厲害....謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)