register313

¦^´_ 1# luke

1. Sub Âà¤J()
   
2. Sheet2.Columns("C:R") = ""
   
3. For C = 1 To 4
   
4.   Sheet1.[B1:B16].Offset(16 * (C - 1), 0).Copy Sheet2.[C3].Offset(0, 5 * (C - 1))
   
5.   Sheet1.[B101:B116].Offset(16 * (C - 1), 0).Copy Sheet2.[C22].Offset(0, 5 * (C - 1))
   
6. Next C
   
7. Sheet2.[C11:C12,C26,C30:C31,C34].EntireRow.Insert
   
8. End Sub
   
9. Sub 刴X()
   
10. Dim AR()
    
11. I = 0
    
12. For X = 1 To 2
    
13.   If X = 1 Then
    
14.     Set Rng = Sheet2.[C3:C20]
    
15.     I = 0
    
16.   Else
    
17.     Set Rng = Sheet2.[C24:C43]
    
18.     I = 0
    
19.   End If
    
20.   For C = 1 To 4
    
21.     For Each A In Rng.Offset(0, 5 * (C - 1))
    
22.       If A.Value <> "" Then
    
23.         ReDim Preserve AR(I)
    
24.         AR(I) = A.Value
    
25.         I = I + 1
    
26.       End If
    
27.     Next
    
28.   Next C
    
29.   If X = 1 Then
    
30.     Sheet1.[B1].Resize(I, 1) = Application.Transpose(AR)
    
31.   Else
    
32.     Sheet1.[B101].Resize(I, 1) = Application.Transpose(AR)
    
33.   End If
    
34. Next X
    
35. End Sub

½Æ»s¥N½X

register313

¦^´_ 3# luke
µ{¦¡«e¥b¬q¬°Àx¦s®æ½Æ»s(¦]Àx¦s®æ¦ì¸mÅܤƤӦh,¨ä¥LÀx¦s®æ¤S¤£¯à§ó°Ê,©Ò¥Hµ{¦¡¨S¤Ó¤j²¤Æ)
µ{¦¡«á¥b¬q¬°Àx¦s®æ®Ø½u¤§Ã¸¨î

1. Sub Âà¤J()
   
2. Sheets("sheet1").Range("B1:B8").Copy Sheets("sheet2").Range("C3:C10")
   
3. Sheets("sheet1").Range("B9:B16").Copy Sheets("sheet2").Range("C13:C20")
   
4. Sheets("sheet1").Range("B17:B24").Copy Sheets("sheet2").Range("H3:H10")
   
5. Sheets("sheet1").Range("B25:B32").Copy Sheets("sheet2").Range("H13:H20")
   
6. Sheets("sheet1").Range("B33:B40").Copy Sheets("sheet2").Range("M3:M10")
   
7. Sheets("sheet1").Range("B41:B48").Copy Sheets("sheet2").Range("M13:M20")
   
8. Sheets("sheet1").Range("B49:B56").Copy Sheets("sheet2").Range("R3:R10")
   
9. Sheets("sheet1").Range("B57:B64").Copy Sheets("sheet2").Range("R13:R20")
   
10. Sheets("sheet1").Range("B101:B104").Copy Sheets("sheet2").Range("C24:C27")
    
11. Sheets("sheet1").Range("B105:B108").Copy Sheets("sheet2").Range("C29:C32")
    
12. Sheets("sheet1").Range("B109:B112").Copy Sheets("sheet2").Range("C35:C38")
    
13. Sheets("sheet1").Range("B113:B116").Copy Sheets("sheet2").Range("C40:C43")
    
14. Sheets("sheet1").Range("B117:B120").Copy Sheets("sheet2").Range("H24:H27")
    
15. Sheets("sheet1").Range("B121:B124").Copy Sheets("sheet2").Range("H29:H32")
    
16. Sheets("sheet1").Range("B125:B128").Copy Sheets("sheet2").Range("H35:H38")
    
17. Sheets("sheet1").Range("B129:B132").Copy Sheets("sheet2").Range("H40:H43")
    
18. Sheets("sheet1").Range("B133:B136").Copy Sheets("sheet2").Range("M24:M27")
    
19. Sheets("sheet1").Range("B137:B140").Copy Sheets("sheet2").Range("M29:M32")
    
20. Sheets("sheet1").Range("B141:B144").Copy Sheets("sheet2").Range("M35:M38")
    
21. Sheets("sheet1").Range("B145:B148").Copy Sheets("sheet2").Range("M40:M43")
    
22. Sheets("sheet1").Range("B149:B152").Copy Sheets("sheet2").Range("R24:R27")
    
23. Sheets("sheet1").Range("B153:B156").Copy Sheets("sheet2").Range("R29:R32")
    
24. Sheets("sheet1").Range("B157:B160").Copy Sheets("sheet2").Range("R35:R38")
    
25. Sheets("sheet1").Range("B161:B164").Copy Sheets("sheet2").Range("R40:R43")
    
26. With Sheets("sheet2").Range("C1:R43").Borders
    
27.   .LineStyle = xlContinuous
    
28.   .Weight = xlThin
    
29.   .ColorIndex = 0
    
30. End With
    
31. End Sub

½Æ»s¥N½X

register313

¦^´_ 7# luke


   Sheet1.Range("B:B").Borders.LineStyle = xlNone