GBKEE

¦^´_ 1# freeffly

1. Sub Ex()
   
2.     Dim R As Range
   
3.     On Error GoTo Out:
   
4.     With Sheets("·JÁ`")
   
5.         For Each R In .Range("B:B").SpecialCells(xlCellTypeFormulas, xlErrors) '³B¸ÌBÄ椤¤½¦¡¦³¿ù»~­ÈªºÀx¦s®æ
   
6.             With Sheets.Add
   
7.                 .Name = R.Offset(, -1).Text
   
8.                 .[a1] = R.Offset(, -1).Text
   
9.             End With
   
10.         Next
    
11.         .Activate
    
12.     End With
    
13. Out:
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# freeffly
AÄ榳¸ê®Æ

1. Sub Ex()  '³B¸ÌAÄ榳¸ê®ÆªºÀx¦s®æ
   
2.     Dim R As Range
   
3.     With Sheets("·JÁ`")
   
4.         For Each R In .Range("A:A").SpecialCells(xlCellTypeConstants)
   
5.             On Error Resume Next
   
6.             Sheets(R.Text).Activate
   
7.             If Err > 0 Then
   
8.                 With Sheets.Add
   
9.                     .Name = R.Text
   
10.                     .[a1] = R.Text
    
11.                 End With
    
12.                 Err.Clear
    
13.             End If
    
14.         Next
    
15.         .Activate
    
16.     End With
    
17. End Sub

½Æ»s¥N½X