GBKEE

¦^´_ 1# symis

1. Option Explicit
   
2. Sub EX()
   
3.     Dim Sh As Worksheet, M As Variant
   
4.     For Each Sh In Sheets
   
5.         M = IIf(M <> "", M & "," & Sh.Name, Sh.Name)
   
6.     Next
   
7.     M = Split(M, ",")
   
8.     Sheets(1).[A1].Resize(, UBound(M) + 1) = M  '¾î¦V±Æ¦C
   
9.     ' Sheet(1) ²Ä¤@­Ó¤u§@ªí
   
10.    ' Sheet(1).[A1].Resize(UBound(M) + 1) = Application.Transpose(M)  'ª½¦V±Æ¦C
    
11.    ' With Sheets.Add             '·s¼Wªº¤u§@ªí
    
12.    '    .[A1].Resize(, UBound(M) + 1) = M  '¾î¦V±Æ¦C
    
13.    '    .[A1].Resize(UBound(M) + 1) = Application.Transpose(M)  'ª½¦V±Æ¦C
    
14.    'End With
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# symis
¶Ç¤W§Aªºµ{¦¡½X ¬Ý¬Ý

GBKEE

¦^´_ 5# symis
¤£¦n·N«ä(¦Ñªá²´),®ö¶O§Aªº®É¶¡: ¤Ö¤Fs 2#µ{¦¡½X¤w­×¥¿.
    Sheets(1).[A1].Resize(, UBound(M) + 1) = M  '¾î¦V±Æ¦C

GBKEE

¦^´_ 7# symis
M = Split(M, ",")
Sheets(1).[A1].Resize(, UBound(M) + 1) = M  '¾î¦V±Æ¦C
VBAªº»¡©ú¤¤¬d¬Ý¥i¤F¸Ñ.