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

´M§ä¤å¦rªºÀx¦s®æ¦ì¸m

Sub yy()
[d:h].Replace "txt", "=1/0"
[d:h].SpecialCells(xlCellTypeFormulas, 16).Select
ad = Selection.Address
Selection = "txt"
MsgBox ad
End Sub

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD