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

[µo°Ý] Find¸ê®Æ­«½Æ,«ç»ò¼g¤~¯à§¹¦¨­×§ï¤u§@

[µo°Ý] Find¸ê®Æ­«½Æ,«ç»ò¼g¤~¯à§¹¦¨­×§ï¤u§@

½Ð°Ý Findªº¸ê®Æ¦³­«½Æ,«ç»ò¼g¤~¯à§¹¦¨­×§ï¤u§@
­×¥¿¤u§@.rar (4.93 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-15 15:18 ½s¿è

¦^´_ 1# HSIEN6001
  1. Sub Ex()
  2.     Dim Rng As Range, AR(), AB(), I As Integer
  3.     AR = Array("¥xÆW50", "¤¤100", "FB¤Wµý")
  4.     AB = Array("'0050", "'0051", "'006205")
  5.     On Error Resume Next  '§ä¤£¨ìªº¸ê®Æ¸õ¹L
  6.     With Sheets("Sheet1").Range("C:C")
  7.         For I = 0 To UBound(AR)
  8.             .Cells.Replace AR(I), "=ZZZ", xlWhole
  9.             With .SpecialCells(xlCellTypeFormulas, xlErrors)
  10.                 .Cells = AR(I)
  11.                 .Cells.Offset(, -1) = AB(I)
  12.             End With
  13.         Next
  14.     End With
  15. End Sub
½Æ»s¥N½X
'SpecialCells(xlCellTypeFormulas, xlErrors)  ¦p¹Ï

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ·P®¦!
¨¯­W¤F,ÁÂÁ±z!

TOP

¦^´_ 2# GBKEE


    °ÝÃD¤w¸Ñ¨M,,,¤p¤p½Ð±Ð

½Ð°Ý
"=ZZZ" ,¬O¬Æ»ò§@¥Î?

TOP

¦^´_ 4# HSIEN6001
½Ð¦A¸Ô¬Ý¹Ï¥Ü
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD