每隔第4列移至新行

Question

我获得的数据存储在Excel工作表的一行列中。 有没有办法将数据移动到每4列的下一行？这有内置功能吗？ 例如：

数据：

Actinium | Ac | 89 | 227.0278* | Aluminum | Al | 13 | 26,981539 ...

输出：

Actinium |Ac | 89 | 227.0278*
Aluminum |Al | 13 | 26,981539

Answer 1

我做了一个宏：

Sub dela_igen()
Dim i As Integer, j As Integer, cur_column As Integer

cur_column = 1
For i = 1 To 100
    For j = 1 To 4
        Cells(i, j).Value = Cells(1, cur_column).Value
        cur_column = cur_column + 1
    Next j
Next i

End Sub

像魅力一样工作！