ªð¦^¦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 : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD