b9208

·PÁ Hsieh ª©¥D
°õ¦æok
¤u§@ªí±Æ¦C¥i¥H¦p¤U¤è¦¡¡G
WW, Mon, Tue, ......., Sun
¥Ø«e±Æ¦C Sun, Sat, ........, WW

ÁÂÁÂ

Hsieh

¦^´_ 1# b9208

1. Sub Split_Sheet()
   
2. Dim Rng As Range, A As Range
   
3. Application.DisplayAlerts = False
   
4. With Sheets("WW")
   
5. .Select
   
6. p = ActiveWindow.Zoom
   
7. For Each sht In Sheets
   
8. If sht.Name <> .Name Then sht.Delete
   
9. Next
   
10. For Each A In .Range(.[F1], .Cells(.Rows.Count, 6).End(xlUp))
    
11.    If IsDate(A) Then
    
12.       If Rng Is Nothing Then
    
13.          Set Rng = A
    
14.          Else
    
15.          Set Rng = Union(Rng, A)
    
16.       End If
    
17.     End If
    
18. Next
    
19. Set Rng = Union(Rng, .Cells(.Rows.Count, 1).End(xlUp).Offset(2, 5))
    
20. For i = 1 To Rng.Areas.Count - 1
    
21.    Set myrng = .Range(Rng.Areas(i).Offset(-1, -5), Rng.Areas(i + 1).Offset(-2, 9))
    
22.    sh = myrng.Cells(2, 7)
    
23.    With Sheets.Add
    
24.    .Name = sh
    
25.    myrng.Copy .[A1]
    
26.    For j = 1 To myrng.Rows.Count
    
27.       .Rows(j).RowHeight = myrng.Rows(j).RowHeight
    
28.    Next
    
29.    For k = 1 To myrng.Columns.Count
    
30.       .Columns(k).ColumnWidth = myrng.Columns(k).ColumnWidth
    
31.    Next
    
32.    ActiveWindow.Zoom = p
    
33.    End With
    
34. Next
    
35. End With
    
36. Application.DisplayAlerts = True
    
37. End Sub

½Æ»s¥N½X