Excel VBA質問箱 IV

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

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


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

46667 / 76732

←次へ　｜　前へ→


	【35033】Re:開いているＢｏｏｋ上全てのＳｈｅｅｔを選択するには

かみちゃん - 06/2/19(日) 17:42 -


	引用なし

	パスワード

>元のマクロは、Ｃ列をアクティブにして、右クリックで列を挿入、空いたその列にＨ列を移動させたのですが、下記の様なマクロになってしまいます。
>何か手順を間違えているのでしょうか？

全然、大丈夫です。
ただ、ご提示のコードがややこしく感じたので、私なりに簡単なほうをご紹介させていただいた次第です。
また、サンプルを拝見して、感じたのですが、
H列を「切り取り」をして、
C列に「切り取ったセルを挿入」という操作でもできると思います。
それであれば、マクロの記録をして、整理すると
Sub Macro2()
　Columns("H:H").Cut
　Columns("C:C").Insert Shift:=xlToRight
End Sub
というコードだけでもできると思ったのです。
これですと、アクティブセルがどこにあろうと気にしなくていいと思います。

>手探り状態なので、本当にこれで合ってるのか分からないので、おかしなミスをおかしていたら指摘してください。

コードはおかしくないと思います。
うまく動いて、後で何をしているかわかるのであれば、それでいいのではないでしょうか？

9 hits

▼

【35021】開いているＢｏｏｋ上全てのＳｈｅｅｔを選択するには miku02 06/2/19(日) 11:16