4行目毎に新しい行に移動

Question

Excelの1列の列に格納されているデータを取得しました。 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 

が魅力のように働きました！