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

[µo°Ý] ¬¡­¶Ã¯¦h­Ó¤À­¶§ó¦W

[µo°Ý] ¬¡­¶Ã¯¦h­Ó¤À­¶§ó¦W

½Ð±Ð¦U¦ì°ª¤â¤j¤j,
           ¤p§Ì¦³¤@­Ó¬¡­¶Ã¯¤º¦³¼Æ¤Q­Ó¤À­¶,¦C¥X¤@­Ó¦WºÙ¦Cªí«á,­n¦p¦ó¨Ì¦WºÙ¦Cªí±N¤À­¶¦WºÙ§ó§ï¦¨¦Cªí¤Wªº¦WºÙ??
             ¤À­¶§ó¦W.rar (1.57 KB)

¦^´_ 1# gracyei


¤j·§ªº§@ªk,¬ÝªºÀ´§a!!!

    For i= 1 To Worksheets("¤À­¶¦WºÙ").[A65535].End(xlUp).Row
                  Sheets("Sheet" & i).Name = Worksheets("¤À­¶¦WºÙ").Cells(i, 1).Value
    Next i

TOP

¦^´_ 1# gracyei

¤U­zµ{¦¡½X¦b°õ¦æ®É~ ¥iÁקK­«Âаõ¦æ®É²£¥Í¿ù»~~
¨Ñ§A°Ñ¦Ò~
  1. Sub EX()

  2. Dim Sh As Worksheet

  3. For Each Sh In Sheets
  4.     If Sh.Name <> "¤À­¶¦WºÙ" Then
  5.     Sh.Name = Sheet1.Range("A" & I + 1)
  6.     I = I + 1
  7.     End If
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD