ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ starry1314 ©ó 2016-11-21 17:02 ½s¿è

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.     With Range([c2], Cells(Rows.Count, "a").End(xlUp))
  5.         arr = .Value
  6.         For I = 1 To 14 '.Count
  7.                     If InStr("«O", arr(I, 2)) > 0 And InStr("0-´ú¸Õ", arr(I, 3)) = 0 Then arr(I, 1) = 0
  8.    
  9.         Next I
  10.         .Value = arr
  11.     End With
  12. End Sub
½Æ»s¥N½X

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

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD