セルからの行数に基づいて特定のセルから空の列にコピー元の列

Question

現在、列の2番目の列を挿入し、その範囲の新しく挿入された列にセルの内容を複製する作業に直面しています元の値がコピーされた場所からの行数で計算されます。

挿入されたすべての列にコピーされた値が挿入されるまで繰り返します。生データや変換データなどの挿入された画像を参照してください。

生データ

最終データ左に細胞行数が、空の列に基づいて、範囲にコピー第3のセルの内容。

私は空の列を挿入する方法を見つけましたが、行数を計算して、B、D、Fからilastcolまでの3番目のセルを左列A、C、 E、同じ範囲のnは私を逃す。列の数（ilastcol）内の3番目のセルごとに繰り返すと、私は逃げることができます。私はrow.countを見て、行の長さを調べました。

Sub insert_column_after_interval_1() 
' Function to insert a column every second column starting from 1. 


Dim iLastCol As Integer 
    iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column ' same as CTRL+RIGHT ARROW 

    For colx = 1 To iLastCol Step 2 

     Columns(colx).Insert Shift:=xlToRight 

    Next 

End Sub 

助けてください。

Answer 1

もっと明確にする必要があります。他に何をしたいのか分かりません。

私はこれがあなたが意味することを望みます。

Sub insert_column_after_interval_1() 



Dim iLastCol As Integer 
    iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column 

    For colx = iLastCol To 2 Step -1 

     Columns(colx).Insert Shift:=xlToRight 

    Next 

End Sub