ªð¦^¦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 : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD