GBKEE

¦^´_ 1# ii31sakura
¬O³o¼Ë¶Ü?

1. Sub ¤À­¶½T»{()
   
2.     Dim wb(1 To 2) As Workbook, SN As String, SNN As Integer
   
3.     Set wb(1) = ThisWorkbook
   
4.     Set wb(2) = Workbooks.Open(Worksheets("Á`±±¨î").Cells(2, 3) & "\" & Worksheets("Á`±±¨î").Cells(2, 2))
   
5.     For i = 2 To wb(1).Worksheets("¤H­û²M³æ").[e65536].End(3).Row 'ÅܼÆi ±q2¨ì eÄæ³Ì«á¤@¶µ¸ê®Æ
   
6.         SN = wb(1).Worksheets("Á`±±¨î").Cells(i, 5) ' °ÝÃDÂI
   
7.         For Each s In wb(2).Sheets
   
8.             SNN = 0
   
9.             If s.Name = SN Then
   
10.                 SNN = 1
    
11.                 Exit For
    
12.             End If
    
13.         Next
    
14.         If SNN = 0 Then
    
15.             wb(2).Sheets.Add
    
16.             ActiveSheet.Name = SN
    
17.         Else
    
18.             Sheets(SN).Select
    
19.         End If
    
20.     Next
    
21.     wb(2).Close True
    
22. End Sub

½Æ»s¥N½X