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

¦p¦ó§â¤u§@ªíªº¦WºÙÅã¥Ü¬°«ü©wªºÀx¦s®æ¤º®e?

¦^´_ 1# irenemak2007
  1. Sub Ex()
  2.     Dim i%
  3.     With Sheets(1)
  4.         .Range("A:A") = ""
  5.         For i = 1 To Sheets.Count
  6.             .Range("A" & i) = Sheets(i).Name
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD