每4列移动一行

我得到的数据存储在Excel表格的一行中。 有没有办法将数据移动到第四列的下一行？ 有没有内置的function呢？ 例如：

数据：

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

输出：

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

Answer 1

我做了一个macros观：

 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 

像魅力一样工作！