모든 15 번째 열을 새 행으로 이동

Question

Excel 시트가 있지만 모든 데이터가 1 ​​번 열에 있습니다. 16 번째 열마다 다음 행으로 이동해야합니다. 그래서 내 데이터는 열 1에서 열 15에 있어야합니다. 저는 Excel에 익숙하지 않으므로 저와 함께하시기 바랍니다.

Answer 1

Sub dividde_16() 

No_of_columns = Cells(1, Columns.Count).End(xlToLeft).Column 
No_of_rows = Int(No_of_columns/15) + 1 

For i = 1 To No_of_rows 
For j = 1 To 15 
    Cells(i + 1, j) = Cells(i * 15 + j) 
Next 
Next 
Range(Cells(1, 16), Cells(1, No_of_columns)) = "" 

End Sub 

Answer 2

당신은 이런 식으로 뭔가를 시도 할 수 있습니다

Sub Move_to_Columns() 
Dim lR As Long, R As Range 
lR = Range("A" & Rows.Count).End(xlUp).Row 
Set R = Range("A1", "A" & lR) 
Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
For Each C In R 
    If C.Row Mod 16 = 0 Then 
     C.Offset(-1, 1).Value = C.Value 
     C.ClearContents 
    End If 
Next C 
Application.Calculation = xlCalculationAutomatic 
End Sub 

그러나 열 대신 행

.