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

[µo°Ý] ¦p¦ó¥Îvbaªº¨ç¼Æ·j´MexcelÄæ¤ºªº¸ê®Æ¡H

¦^´_ 1# ji12345678
  1. Sub nn()
  2. Dim A As Range
  3. Columns("C:C").Replace "§ø¤W", "=1/0"
  4. Set A = Columns("C:C").SpecialCells(xlCellTypeFormulas, 16)
  5. A.Value = "§ø¤W"
  6. MsgBox A.Address
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD