このたび初めて質問させていただきます。
周囲にVBAを扱うひとがいないため、初歩的(たぶん?)な質問をさせてください。
以下のようなマクロを記録したのですが、一部を編集したいと考えております。
Columns("F:H").Select
Selection.Insert Shift:=xlToRight
Columns("A:B").Select
Selection.Cut
Range("F1").Select
ActiveSheet.Paste
Columns("J:J").Select→J列固定ではなく右端の列と設定したい。
Selection.Cut
Range("H1").Select
ActiveSheet.Paste
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("J:J").SelectをJ列固定ではなく右端の列を1列設定し切り取りがしたいのです。Range("A2").End(xlToRight).Select
ActiveCell.Offset(-1,0).End(xlDown).Select
と書き換えてみたのですが、うまく作動しませんでした。
どなたか教えていただけませんでしょうか?
No.1ベストアンサー
- 回答日時:
>Columns("F:H").Select
>Selection.Insert Shift:=xlToRight
は、
Columns("F:H").Insert
に、
>Columns("A:B").Select
>Selection.Cut
>Range("F1").Select
>ActiveSheet.Paste
は、
Columns("A:B").Cut Destination:=Range("F1")
に、
>Columns("J:J").Select→J列固定ではなく右端の列と設定したい。
>Selection.Cut
>Range("H1").Select
>ActiveSheet.Paste
は、
Columns(Cells(1, Columns.Count).End(xlToLeft).Column).Cut Destination:=Range("H1")
に、
>Columns("A:B").Select
>Selection.Delete Shift:=xlToLeft
は、
Columns("A:B").Delete
に、変えることができます。 結局、
Columns("F:H").Insert
Columns("A:B").Cut Destination:=Range("F1")
Columns(Cells(1, Columns.Count).End(xlToLeft).Column).Cut Destination:=Range("H1")
Columns("A:B").Delete
の、計4行でお望みの処理ができます。
解説はしませんので、ヘルプと首っ引きで解答を見つけてください。 苦労すると身に付きます。 安易に聞くとすぐ忘れます。 私もそうして来ました。
省略形が使われています。 R1C1 形式での表現もあります。
尚、VBA のヘルプは、VBA Editor のヘルプを見てください。 データの書かれているところのヘルプはエクセルのものです。 間違えないように。
どうしても、解説が必要になりましたら、補足にその旨お書きください。
ご回答どうもありがとうございました!
いただいたアドバイスをもとに、下記にて思い通りの指示をかけることができました。
Columns("F:H").Insert
Columns("A:B").Cut Destination:=Range("F1")
Range("I2").End(xlToRight).EntireColumn.Cut Destination:=Range("H1")
Columns("A:B").Delete
本を読んだり、サイトを見たりして、ツギハギでこなしているところです。おっしゃるとおり、ゆっくり時間をとって勉強していきたいと思います。
お忙しいなか、どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、条件をつけて人数...
-
エクセルのセルで整数のみ選択...
-
エクセルで参加者一覧表から参...
-
5円単位の切り上げ関数
-
エクセルで住所一覧から都道府...
-
エクセルで一次線形補間する方法
-
エクセル集計ひと月を4週に分...
-
エクセルで年齢別の人員を集計...
-
エクセルに現在の日付と時間を...
-
エクセルのデータをパワーポイ...
-
エクセルの一覧からカードを作...
-
excel VBA コピーした行を、指...
-
関数の件
-
EXCELでコード別の数量・金額を...
-
パソコンでダウンロードしたmp4...
-
半角の引用符 “ ” の打ち方
-
エクセルで空白を無視して一番...
-
キーボードで英数字の半角と全...
-
Yを逆さにした「スターデルタ結...
-
「“」と「”」について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、条件をつけて人数...
-
エクセルのセルで整数のみ選択...
-
エクセル 表の人数を計算したい...
-
エクセルの一覧からカードを作...
-
とびとびの大量セルを選択した...
-
AdvancedFilterを使って値のみ...
-
エクセルで参加者一覧表から参...
-
エクセルで複数行に渡ったセル...
-
5円単位の切り上げ関数
-
excel VBA コピーした行を、指...
-
エクセルで一次線形補間する方法
-
エクセルの範囲指定について
-
エクセルVBAで値だけをコピーペ...
-
エクセルで1行ごとの数値の並...
-
エクセル集計ひと月を4週に分...
-
エクセルのマクロで上のセルの...
-
エクセルで条件付き書式での複...
-
他のブックで管理する価格表を...
-
A列に日付、B列にその日の売り...
-
パソコンで売上集計!!
おすすめ情報