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

[µo°Ý] ¨ú¤u§@ªí¦WºÙ¦AÂШî¦h¦¸

[µo°Ý] ¨ú¤u§@ªí¦WºÙ¦AÂШî¦h¦¸

¤u§@³¡¦³20±iSHEETS, ¥Ñ²Ä7±i¦Ü³Ì«á¤@±iªºSHEET¦WºÙ, ©ñ¦bAAÀɤ§F1°_, ¨C­ÓSHEET¦WºÙCOPY 20¦¸. ¦ÓE1Åã¥Ü1,2,3,4,....20 , §Ú¼g¤F¤U¦C, ¥u¥i¥H¥X²{³Ì«á¤@±i¤u§@ªí, ½Ð±Ð¿ù»~¦b¨º?

1 ¤u§@ªí¦W1
2 ¤u§@ªí¦W1
3 ¤u§@ªí¦W1
4 ¤u§@ªí¦W1
...20 ¤u§@ªí¦W1

1 ¤u§@ªí¦W2
2 ¤u§@ªí¦W2
3 ¤u§@ªí¦W2
4¤u§@ªí¦W2
...20 ¤u§@ªí¦W2
  1. Sub getSheetName()

  2.     Dim i As Integer
  3.     Dim shtname As Integer
  4.    
  5.     Worksheets("aa").Select
  6.     Range("B1").CurrentRegion.Clear
  7.    
  8.     Range("B1").Select
  9.    
  10.     For i = 7 To Worksheets.Count
  11.     Range("B1").Resize(20) = Worksheets(i).Name
  12.    
  13.               
  14.     Next i
  15.    
  16. End Sub
½Æ»s¥N½X

§Aªº¥N½X­«Âжñ¦bSheets("aa").Range("B1").Resize(20)
·íµM°N·|¨£¨ì³Ì«á¤@­¶ªº­¶¦W, ¥t¥~¥Ñ7~³Ì«á¤@­¶ªº­¶¦W³£¬O¼Æ¦r?

TOP

¦^´_ 2# ikboy


    ¬O­^¤å¥[¼Æ¦r, ¦ý1-6±iSHEET¬O¤£¥Î³B²zªº.¦³³Ò!

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-8-21 08:57 ½s¿è

¦^´_ 3# missbb



´`Àô»Ý­n¦A¥[¤W¤@­ÓÅܼÆ
  1. Sub getSheetName()

  2.     Dim i As Integer
  3.     Dim shtname As Integer
  4.    
  5.     Worksheets("aa").Select
  6.     Range("B1").CurrentRegion.Clear
  7.    
  8.     Range("B1").Select
  9.     n = 1
  10.     For i = 7 To Worksheets.Count
  11.    
  12.     Range("B" & n).Resize(20) = Worksheets(i).Name
  13.     n = n + 20
  14.     Next i
  15.    
  16. End Sub
½Æ»s¥N½X

TOP

§Ú¦³ÂI©_©Ç,¬°¬Æ»òmissbb¥ý¶i¦³¹L¤@¥y Dim shtname As Integer, ¬O¤£¬OÁÙ¦³«á´Á¤Þ¥Î sheets.name ?
¦ý«Å§i¦¨¾ã¼Æ!

TOP

¦^´_ 4# lpk187


    ¦p¦ó¦bA1¥[¤W1,2,3.....20, ¦A­«½Æ?
¦³³Ò

TOP

for i = §Aªº¤U¼Ð to  §Aªº¤W¼Ð
  for j = 1 to 20
    [a1]=join([a1], §Aªºª«¥ó)
      next i,j

TOP

¦^´_ 7# ikboy

¦hÁ«ü¾É! :D

TOP

¦^´_ 4# lpk187

¦hÁ«ü¾É! :D

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2015-8-21 22:28 ½s¿è
  1. Sub getSheetName()

  2. Dim i As Integer
  3. Dim shtname As Integer

  4. Worksheets("aa").Select
  5. Range("B1").CurrentRegion.Clear

  6. Range("B1").Select

  7. n = 1

  8. For i = 7 To Worksheets.Count

  9.   Range("B" & n).Resize(20) = Worksheets(i).Name

  10.   For j = 1 To 20
  11.     Range("A" & n) = j
  12.     n = n + 1
  13.   Next j
  14. Next i
  15.    
  16. End Sub
½Æ»s¥N½X
½Ð¦¬¤U¡A:D

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD