1行に5列と100行のループを入れたい

Question

私は、水平な行に入れる必要のある5列と100行の情報を持っています。

赤、緑、青、黄色 赤、緑、青、黄色 赤、緑、青、黄色 ECT ...

に

赤、緑、青、黄色、赤色、緑色、青色、黄色、赤色、緑色、青色：例えば

黄色... ect

助けてください私はできるだけ基本的なようにマクロを作成する方法がわからない！ありがとうございます

Answer 1

ここでは、同じシート上に転置を行うコードがあります。必要に応じて行と列を変更します。 VBAエディタを開いてマクロを実行する方法が分かっていることを願っています。

Sub transpose() 
Dim row 
Dim targetRow 
Dim targetColumn 
Dim column 
Dim columnMin 
Dim columnMax 
Dim rowMin 
Dim rowMax 
Dim tmp 

rowMin = 1 
rowMax = 2 
columnMin = 1 
columnMax = 5 

targetColumn = 7 
targetRow = 1 

row = rowMin 
While row <= rowMax 

    column = columnMin 

    While column <= columnMax 

     Cells(row, column).Select 
     tmp = ActiveCell.Value 
     Cells(targetRow, targetColumn).Select 
     ActiveCell.Value = tmp 
     targetRow = targetRow + 1 
     column = column + 1 

    Wend 

    row = row + 1 

Wend 

End Sub 

これは、必要な各行のループです。 必要な最初の列から開始します。 その行の各列をループし、値を取得してターゲットの行と列に入れます。次に、ターゲット行をインクリメントします。

私はあなたの特定の問題を解決するためにあなた自身で修正を加えることができる十分なサンプルコードがここにあることを望んでいます。

'編集 Damn。ちょうどその質問が1行を求められたことに気付いたが、これは1列である。変更するのは難しいことではありません。