Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11827 / 76734

←次へ　｜　前へ→


	【70437】入れ替え

rina - 11/11/16(水) 12:48 -


	引用なし

	パスワード

こんにちわ、はじめまして。
最近、マクロの勉強をしている初心者です。

現在、行の入れ替えのマクロを作成しており、
下記のようなコードで作成してみました。
Range("J8:BK16") のように、この範囲をひとまとまりの行として考えてます。

不格好だとは思いますが、これで成功しているのですが、
今後、行が増えていった場合に、コードも増えていくかと思い悩んでました。

コードを増やす事なく、入れ替え行を増殖できるような方法はあるのでしょうか？

Sub 移動1()
　　Application.ScreenUpdating = False
　　Range("J8:BK16").Select
　　Selection.Cut
　　Range("J26:BK34").Select
　　Selection.Insert shift:=xlDown
　　Range("J17").Select
End Sub

Sub 移動2()
　　Application.ScreenUpdating = False
　　Range("J17:BK25").Select
　　Selection.Cut
　　Range("J35:BK43").Select
　　Selection.Insert shift:=xlDown
　　Range("J26").Select
End Sub

3 hits

▼

【70437】入れ替え rina 11/11/16(水) 12:48

≪