人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルマクロの質問です。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

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


●質問者: rivella
●カテゴリ:コンピュータ
○ 状態 :キャンセル
└ 回答数 : 0/0件

▽最新の回答へ

質問者から

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

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.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ