将每第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

但是使用列而不是行。