エクセル マクロでの繰り返し処理について
エクセル初心者です。エクセル２０１０を使用しています。
とあるホームページから、ページをコピーして、エクセルに「テキストで貼り付け」をおこない、
A列に8行の項目が入ります。この8行と次の8行の間には、自然に空白行が1行ずつ入ります。
これは、完全に手作業です。
次に、下記の作業を、マクロの自動記録を相対参照で行います。
上記のエクセルのデータを、1つめの8行のデータをコピーして(A１からA8)、C1に「行と列を入れ替え」を選択してC１からJ１に貼り付けます。
その後は、次のデータのまとまりのA10のセルに移ります。これをCtrl+a を押し続けることで、数百件か多いときは４０００件ほどの並べ替えをしています。
「データがある間は、この処理を繰り返す。」
というマクロにしたいのですが、参考書等を見ながらチャレンジしてもうまくいきません。
わかる方、教えていただけますか。
以下が、マクロの自動記録でできた物です。データの個数は数百のこともあれば４０００件のこともあります。
Sub 行列入れ替え8行()
'
' 行列入れ替え8行 Macro
'
' Keyboard Shortcut: Ctrl+a
'
ActiveCell.Range("A1:A8").Select
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(9, -2).Range("A1").Select
End Sub
どうぞ、ご指導よろしくお願いいたします。
お礼
ありがとうございました。