n7822123

1. Sub test1()
   
2. Dim n As Long, rg1 As Range, rg2 As Range
   
3. [s2].Resize(65536, 49) = ""
   
4. Do While Cells(2 + 49 * n, 5) <> ""
   
5.   Set rg1 = Cells(2 + 49 * n, 5).Resize(49, 6)
   
6.   Set rg2 = Cells(2 + 49 * n, 19).Resize(6, 49)
   
7.   rg2 = Application.Transpose(rg1): n = n + 1
   
8. Loop
   
9. End Sub

½Æ»s¥N½X