[已解決]instr 關於如何找出包含 並更改資料

starry1314

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

複製代碼

下載 (15.71 KB)

2016-11-21 16:48

尋找 包含 不包含str.rar (13.85 KB)

下載次數: 2

2016-11-21 16:49