こんにちは。VBAは苦手なので教えてください。
EXCELのsheet1にあるリストに、下記マクロで1行おきに
空白行を挿入しました。
Sub test1()
'隔行で空白行を挿入
Dim rw As Long 'セル
For rw = Range("A1").End(xlDown).Row To 2 Step -1
Rows(rw).Insert
Next
End Sub
同じファイルのSheet2の1行目<Rows("1:1")>に、計算式が入力されています。
マクロで挿入した空白行全てを選択し、そこへSheet2の1行目のコピーを
貼り付けたいです。
ぜひ、良い方法を教えてください。
No.2ベストアンサー
- 回答日時:
>このマクロだと、一番最後のデータ行の下には式がコピーされないのですが、
>何か解決法があるでしょうか?
質問からはこのことが不明で、
『行を挿入したシートの最終行の下にも算式が必要な場合は、
Range("A65536").End(xlUp).Row + 1 とします。 』
と書いたんですが、ちゃんと全部書くと、下のようになります。
(例1)
For rw = Range("A65536").End(xlUp).Row + 1 To 2 Step -2
Sheets("Sheet2").Rows("1:1").Copy Destination:=Rows(rw)
Next
(例2)
Sheets("Sheet2").Rows("1:1").Copy
For rw = Range("A65536").End(xlUp).Row + 1 To 2 Step -2
Rows(rw).Select: ActiveSheet.Paste
Next
そういうことだったんですね。すみませんでした。
おかげで何とか組めました!ありがとうございます。
また機会がありましたら御教授お願いします。
No.1
- 回答日時:
処理例を2つ書いてみました。
Sheet2の1行目の算式の内容は分からないので、行をコピーしてそのまま貼り付けています。
行を挿入したシートの最終行の下にも算式が必要な場合は、
Range("A65536").End(xlUp).Row + 1 とします。
(例1)
For rw = Range("A65536").End(xlUp).Row - 1 To 2 Step -2
Sheets("Sheet2").Rows("1:1").Copy Destination:=Rows(rw)
Next
(例2)
Sheets("Sheet2").Rows("1:1").Copy
For rw = Range("A65536").End(xlUp).Row - 1 To 2 Step -2
Rows(rw).Select: ActiveSheet.Paste
Next
この回答への補足
ありがとうございます。うまくできました!
それから、できればもう1つ教えてください。
このマクロだと、一番最後のデータ行の下には式がコピーされないのですが、
何か解決法があるでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
-
4
エクセルマクロで偶数行(又は奇数行)にあるセルを選択したい
Excel(エクセル)
-
5
【EXCEL VBA】Range(A:A").Find(What:="キーワード")の1行目について"
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
太ってる女とのSEX
-
直ぐに挿入をせまる彼女
-
40代男性が好むSEXはどんなもの...
-
挿入時、キツっって言いながら...
-
恋人などと挿入したまま入眠し...
-
処女卒業して3ヶ月の大学生です...
-
入ってるかどうかわからない
-
もう少しでイケそうな時、どん...
-
入れてる最中に、『めっちゃ濡...
-
女性の方 イクようになったき...
-
女性の方へ、イクことと女性の...
-
手コキとマンコに挿入するのと...
-
AVって、本当に挿入してるんで...
-
手マンと挿入どっちが気持ちい?
-
女性に質問です。挿入で気持ち...
-
高齢熟女も濡れるんですか?
-
あそこが狭い女性とのHについ...
-
寝てる時に挿入されたら気付く...
-
嫁がバイブでしか逝きません。
-
いきそうでいけない・・・
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
恋人などと挿入したまま入眠し...
-
太ってる女とのSEX
-
挿入中の潮について、ものすご...
-
直ぐに挿入をせまる彼女
-
40代男性が好むSEXはどんなもの...
-
挿入時、キツっって言いながら...
-
もう少しでイケそうな時、どん...
-
入れてる最中に、『めっちゃ濡...
-
処女卒業して3ヶ月の大学生です...
-
女性の方 イクようになったき...
-
嫁がバイブでしか逝きません。
-
女性の方へ、イクことと女性の...
-
AVって、本当に挿入してるんで...
-
手コキとマンコに挿入するのと...
-
あそこが狭い女性とのHについ...
-
入ってるかどうかわからない
-
手マンと挿入どっちが気持ちい?
-
挿入しやすい体位
-
挿入のときに力を抜く方法はあ...
-
いきそうでいけない・・・
おすすめ情報