ªð¦^¦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 : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD