No.1ベストアンサー
- 回答日時:
ご相談のマクロはご質問の「言葉の説明」とやってることが食い違ってますが,どっちを信じればいいのでしょうね。
ご説明:アクティブセルの行をコピー
マクロ:アクティブセルと関係なく1行目をコピー
ご説明:アクティブセルの下に挿入
マクロ:アクティブセルの行を下げて,元あった場所に挿入
また,もっと肝心なポイントとして,
>複数「セル」を選択している場合は、複数行を挿入する
これも言葉の説明が曖昧ですが,選択された複数セルに対して(選択されたセル範囲の一番下に行数分纏めてじゃなく)「その1つ1つのセルについてその行に挿入する」と言いたいのだとします。
だとしても,同じ行で例えばB3,D3とかのセルが選ばれてたら,それは「3行目のセルが選択されてる」として「1行挿入」すれば良いのか,それともご相談の言葉尻を信じて「2行挿入」したいのか,どっちでしょう。
とりあえず,失礼ですが「あなたの言葉のご説明がいずれも間違ってる」モノとして,次のようなマクロにしてみます。
sub macro2()
dim h as range
for each h in application.intersect(selection.entirerow, range("A:A"))
rows(1).copy
h.insert
next
application.cutcopymode = false
end sub
それとも「やっぱりホントはこういう事がしたかった」場合は,このご相談は解決で一回閉じる操作を行ってから,改めて(今度はちゃんとご自分のご説明を読み返してから)正しい内容で新しいご相談として投稿し直してみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
Excelで、activecellから最終列まで選択するvbaはどうすれば?
Excel(エクセル)
-
”アクティブセル行」の一行下を選択”するマクロ
その他(Microsoft Office)
-
-
4
Excel VBA アクティブセルからある一定のセルまでの範囲選択
Excel(エクセル)
-
5
VBAで行コピーして挿入
Visual Basic(VBA)
-
6
特定の行を選択して別のシートにコピーするマクロ
Excel(エクセル)
-
7
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
8
エクセルでエラーが出て困っています。
Excel(エクセル)
-
9
アクティブになっている行をマクロで削除したい
Excel(エクセル)
-
10
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
11
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
12
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
13
Excel VBA、 別ブックの最終行セルへのコピー&値ペースト
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
Excelで、図形内の文字をセルに...
-
Excel ハイパーリンクのURLを別...
-
フォントの色を指定して削除出...
-
【EXCEL】先週の月曜日の日付を...
-
マクロを実行すると画像がズレ...
-
セルの内容をテキストボックス...
-
セルがクリックされた回数をカ...
-
Excel2007 色のカウント (VBA)
-
[EXCEL] フォント変更が正常に...
-
エクセルでの検索ボックスの作...
-
エクセルでページ数をあるセル...
-
太字に設定されているセルの個...
-
エクセル 未入力セルがあると...
-
EXCELのセルや文字色の反映
-
エクセル シート保護された共...
-
excelで セルの移動時に...
-
VBAで特定の文字以降の文字列の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
太字に設定されているセルの個...
-
クリックすると文章が表示され...
-
Excelで挿入した図をセルの中央...
-
【マクロ】ファイル名の変更に...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
Excel ハイパーリンクのURLを別...
-
フォントの色を指定して削除出...
-
Excelでセルをクリックす...
-
Excel2007 色のカウント (VBA)
-
エクセルでの検索ボックスの作...
-
現在のセルの位置を返す関数は...
-
エクセル マクロ チェックボックス
-
VBA 見つからなかった時の処理
-
アポストロフィーの一括挿入 ...
-
エクセルでPDFリンクを大量...
-
セルの値が変ると自動でマクロ...
おすすめ情報