[發問] 如何刪除字串內指定文字或是保留指定文字?

marklos

請問~~
如何刪除字串內指定文字包含後面的數字或是保留指定文字包含後面的數字?

刪除Location E2;E3;E4 欄位內字串指定文字C開頭的編號
或是保留P開頭的文字

並修正D2;D3;D4 的數量

變更前

下載 (45.54 KB)

2011-12-30 18:02

變更後

下載 (35.37 KB)

2011-12-30 18:03

marklos

回復 4# Hsieh


    原本要點選另外一個"回復"才能讓您收到感謝的聲音~~
~~遲來的感謝~~感謝版主的幫忙~~問題解決了!!!

marklos

感謝您幫了個大忙~~感謝!!!

Hsieh

回復 3# marklos

1. Sub 保留P()
   
2. Dim Ay()
   
3. For Each a In Range("E2:E4")
   
4. ar = Split(a, ",")
   
5. For Each c In ar
   
6.   If c Like "P*" Then
   
7.     ReDim Preserve Ay(s)
   
8.     Ay(s) = c
   
9.     s = s + 1
   
10.   End If
    
11. Next
    
12. a.Value = Join(Ay, ",")
    
13. a.Offset(, -1) = s
    
14. Erase Ay: s = 0
    
15. Next
    
16. End Sub

複製代碼

marklos

感謝相助~~
但是還有一事不明~
也就是 , 當保留pXX之後 , 如何重新統計數量 (D欄內每個ITEM的數量)

Hsieh

1. Sub 刪除C()
   
2. Dim Ay()
   
3. For Each a In Range("E2:E4")
   
4. ar = Split(a, ",")
   
5. For Each c In ar
   
6.   If Not c Like "C*" Then
   
7.     ReDim Preserve Ay(s)
   
8.     Ay(s) = c
   
9.     s = s + 1
   
10.   End If
    
11. Next
    
12. a.Value = Join(Ay, ",")
    
13. Erase Ay: s = 0
    
14. Next
    
15. End Sub
    
16. 
    
17. Sub 保留P()
    
18. Dim Ay()
    
19. For Each a In Range("E2:E4")
    
20. ar = Split(a, ",")
    
21. For Each c In ar
    
22.   If c Like "P*" Then
    
23.     ReDim Preserve Ay(s)
    
24.     Ay(s) = c
    
25.     s = s + 1
    
26.   End If
    
27. Next
    
28. a.Value = Join(Ay, ",")
    
29. Erase Ay: s = 0
    
30. Next
    
31. End Sub

複製代碼

回復 1# marklos