標題: [已解決]instr 關於如何找出包含 並更改資料 [打印本頁]

---

作者: starry1314    時間: 2016-11-21 16:49     標題: [已解決]instr 關於如何找出包含 並更改資料

本帖最後由 starry1314 於 2016-11-21 17:02 編輯

If InStr("保", arr(I, 2)) > 0 And InStr("0-測試", arr(I, 3)) = 0 Then arr(I, 1) = 0
解決方案   If InStr(arr(I, 2),"保") > 0 And InStr("0-測試", arr(I, 3)) = 0 Then arr(I, 1) = 0

1. Sub 條件清除()
   
2. '缺點 空白也被視為符合條件
   
3.     Dim arr, I&
   
4. 
   
5.     With Range([c2], Cells(Rows.Count, "a").End(xlUp))
   
6.         arr = .Value
   
7.         For I = 1 To 14 '.Count
   
8.                     If InStr("保", arr(I, 2)) > 0 And InStr("0-測試", arr(I, 3)) = 0 Then arr(I, 1) = 0
   
9.    
   
10.         Next I
    
11.         .Value = arr
    
12.     End With
    
13. End Sub

複製代碼

[attach]25861[/attach]
[attach]25862[/attach]

---

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