- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2013-5-13 10:32
| 只看該作者
回復 1# b31978
可詳看 VBA 說明
Filter 函數 傳回一個從零開始的陣列，該陣列包含基於指定篩選準則的一個字串陣列的子集。
Split 函數 傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
Replace 函數 傳回一個字串，該字串中指定的子字串已被取代成另一子字串，並且取代發生的次數也是指定的。- Option Explicit
- Sub Ex()
- Dim E As Range, A As Variant, i As Integer, B As String
- For Each E In [AL12:AL26] '範圍中的每一個成員(E)
- i = 0
- For Each A In Filter(Split(E, vbLf), "小李:", True)
- 'Miscellaneous 常數 vbLf -> Chr(10) : 換行字元。
- B = Replace(A, "小李:", "")
- B = Replace(B, "PCS", "")
- i = i + B
- Next
- E.Offset(, 1) = IIf(i <> 0, i, "") '右邊第 1 欄
- Next
- End Sub
|
|
發表於 2013-5-13 09:45
| 
