每隔第4列移至新行

时间:2017-03-29 09:54:25

标签: excel excel-vba vba

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

数据:

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

输出:

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

1 个答案:

答案 0 :(得分: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

像魅力一样工作!