[¤w¸Ñ¨M]instr Ãö©ó¦p¦ó§ä¥X¥]§t ¨Ã§ó§ï¸ê®Æ

starry1314

If InStr("«O", arr(I, 2)) > 0 And InStr("0-´ú¸Õ", arr(I, 3)) = 0 Then arr(I, 1) = 0
¸Ñ¨M¤è®×   If InStr(arr(I, 2),"«O") > 0 And InStr("0-´ú¸Õ", arr(I, 3)) = 0 Then arr(I, 1) = 0

1. Sub ±ø¥ó²M°£()
   
2. '¯ÊÂI ªÅ¥Õ¤]³Qµø¬°²Å¦X±ø¥ó
   
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("«O", 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

½Æ»s¥N½X

¤U¸ü (15.71 KB)

2016-11-21 16:48

´M§ä ¥]§t ¤£¥]§tstr.rar (13.85 KB)

¤U¸ü¦¸¼Æ: 2

2016-11-21 16:49