エクセルマクロの質問です。24行7列ずつ右の列に移動するためのマクロを教えてください。


マクロ初心者です。初歩的な質問で恐縮ですが、お願いいたします。
8760行7列のデータを、24行7列ずつカットして右上に貼り付ける作業を繰り返したいです。

図解すると、

A1  B1  C1・・・ G1
・・・・・・・・・
A24 B24 C24・・・G24
A25 B25 C25・・・G25
・・・・・・・・・
A48 B48 C48・・・G48
A49 B49 C49・・・G49
・・・・・・・・・

のデータを

A1  B1  C1・・・ G1 A25 B25 C25・・・G25 A49 B49 C49・・・G49・・
・・・・・・・・・・・ ・・・・・・・・・・・ ・・・・・・・・・・・・・
A24 B24 C24・・・G24 A48 B48 C48・・・G48 ・・・・・・・・・・・・・G8760

にするマクロの書き方を教えてください。宜しくお願いします。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/06/20 14:53:14
  • 終了:2013/06/27 14:55:03
id:rivella

解決しました。
以下のようなマクロでできました。初歩的な質問をしてしまい、すみませんでした。

Macro11 Macro
'

'
Dim r As Long
r = 1:
Do While (Cells(26, 50).Value <> "")

Range("AX26:BD49").Cut Destination:=Range(Cells(2, 50 + 7 * r), Cells(2, 56 + 7 * r))

Rows("26:49").Delete Shift:=xlUp

r = r + 1
Loop

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません