A 回答 (4件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
○数式が入っているのに移動すると問題が起きる場合があるので,生データだけ入っているとします
○色々な場所で動作させたいので,ある決まりで「どの範囲を回転したい」のか自動で判別させます
Sub macro1()
Dim r As Range
Dim n As Double
On Error Resume Next
Set r = Application.Intersect(ActiveCell.CurrentRegion, ActiveCell.EntireRow)
If r.Count = 1 Then Exit Sub
Set r = r.SpecialCells(xlCellTypeConstants)
n = r.Areas(r.Areas.Count).Count
r.Areas(r.Areas.Count).Cells(n).Cut
r.Cells(1).Insert Shift:=xlToRight
End Sub
回転したい中のセルを1つ選んでマクロを実行します。
#空セルで作動させても誤動作しない手当てをしてあります
#連続した範囲(Ctrl+Shift+:で選択される)の中で,データの入っている範囲を対象にします。
#連続した範囲に含まれた空セルも回転の対象にしますが,連続した範囲の外にあるセルは対象外なので,たとえばA:E列に連続した範囲,J:M列に別の連続範囲があるような場合でも片方だけを対象にします。
ご相談に書いてない,具体的なデータの配置の姿に合わせてマクロを書けば,もっとシンプルでスマートなマクロに出来ます。
この回答への補足
お答えいただいて、ありがとうございます。
質問の際、範囲を指定したいことが抜けておりました。
例
A1からE2に1グループ、A5からC10に1グループ、
J15からP20に1グループと
いった風にたくさんのグループを一度に移動させたいのですが、
セル内は数式無しです。
No.2
- 回答日時:
とりあえず先の回答のマクロで順繰り実行して貰えば,元のご相談のリクエストは完遂すると思います。
>A1からE2に1グループ、A5からC10に1グループ、
>J15からP20に1グループと
>いった風にたくさんのグループを一度に移動させたい
どのようにローテートしたいのか欲しい結果がイマイチ見えませんが,勝手に想像します。
sub macro2()
range("E1:E2").cut
range("A1:A2").insert shift:=xltoright
range("C5:C10").cut
range("A5:A10").insert shift:=xltoright
range("P15:P20").cut
range("J15:J20").insert shift:=xltoright
end sub
先のマクロを簡単にしただけなので,実際に応用してみてください。
本件はこれにて。
ありがとうございました。
こちらの伝えたいことを組んで下さり、助かりました。
教えていただいた式の応用で、基本的な物はできあがりました。
ただ、セルの結合部分だけが
結合されたセルの一部を変更することはできません。
のエラーで実行が止まってしまいました。
何かしらの手立てがあるのでしょうか?
No.4
- 回答日時:
[No.3この回答への補足]へのコメント、
》 マクロに組み込むにはどういった、手順を踏めばいいのでしょうか?
貴方と同様に、私もマクロ音痴なので回答できません。
この程度のことは、マクロ化する必要もなさそうですが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 工学 1つのタクトスイッチで複数の並列回路を閉じ、アースにつなげることができるスイッチはありますか。 2 2022/08/06 10:38
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Excel(エクセル) 結合セルのソートについて 5 2022/04/22 11:57
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) Excelで、行に複数の数字が入力されているセルが複数の列存在し、行を跨いでセル内の数値を並び替える 5 2022/06/17 18:03
- JavaScript カラーミーショップのsectionループ内で、[引数][戻り値]ありの関数的な処理を行いたいです。 1 2022/05/07 19:39
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- その他(生活家電) 学習リモコンについて 1 2023/01/25 07:23
- Excel(エクセル) EXCEL ActiveX コマンドボタンで実行する前にいったんmsgBoxで確認を求めたい 1 2022/07/06 19:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excelで連続印刷をするマクロ
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
Excel2007で、太字にした行のみ...
-
エクセルで全ての数字間にカン...
-
100行のセルの高さを一括で調整...
-
EXCEL マクロで「キーワード入...
-
wordのvbaでハイパーリンク設定...
-
エクセル VBA 小数点を含む数字...
-
エクセルで、行ごとの並び替え...
-
Excel2007 セルを右方向に削除...
-
任意の1行を選択していないと...
-
「マクロ」の足し算の式を教え...
-
yyyy/mm/ddの日付に一括変換す...
-
エクセル2000でこんなマク...
-
値貼り付けをしても書式も貼り...
-
並べ替えのマクロで対象行の範...
-
マクロまたは他の方法でで自動転記
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
(Excel2003)すぐ左の最後の行...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
エクセルで、行ごとの並び替え...
-
エクセル2003でマクロをおこな...
-
excel ある部分だけをコピペし...
-
行の入れ替えってどうするの?
-
Excelで周期的に列を削除する方法
-
整数行を残し小数点の行を削除...
-
EXCEL マクロで「キーワード入...
-
VBA コピーを有効行までループ...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
おすすめ情報