[[20241129180613]]　『こんなマクロを作りたいのですが』（ひろ）　ページの最後に飛ぶ

『こんなマクロを作りたいのですが』（ひろ）

はじめまして
今度以下の流れのマクロを作りたいのですが作り方を教えて下さい
D列のデータがある最終行を取得する
↓
A1からD列の最終行までをコピー・値の貼り付けをする
↓
保存する
以上のマクロです
よろしくお願いいたします

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

■１
そんなに難しいものではないとおもいますが、どこで詰まってますか？
命令がわからないのであれば↓のようにすれば調べられるとおもいます。

＞D列のデータがある最終行を取得する
過去ログやネット検索で容易に調べがつくとおもいます。

＞A1からD列の最終行までをコピー
マクロの記録で調べられます

＞値の貼り付けをする
マクロの記録で調べられます

＞保存する
マクロの記録で調べられます

■２
組み立て方がわからないということであれば↓を参考にしてはどうでしょうか？

    Sub まくろ()
        Dim 最終行 As Long

        最終行 = [D列最終行を調べる命令]
        Range("A1:D" & 最終行).[コピーする命令]
        [貼付先の左上セル].［値貼り付けする命令］
        [ブックに名前を付けて保存する命令]       
    End Sub

（もこな２） 2024/11/29(金) 18:56:06

1）A1セルを選択
2）「Ctrl」キー　+　「Shift」キー　+　「：」キー　押下
3）「Ctrl」キー　+　「C」キー　押下
4）「Ctrl」キー　+　「V」キー　押下
5）「Ctrl」キー　押下
6）「V」キー　押下

このキーボード操作で期待する結果にならないだろうか？
なるなら、その一連の操作をマクロの記録をしてみてください。
(この操作を覚えたら、マクロは要らないかもしれない。。。）
記録されたコードを叩き台に汎用的に使えるマクロを作れます。

あ、上書き保存を忘れてた。
上書き保存のショートカットは、、、
「Ctrl」キー　+　「S」キー
ですね。。。
（まっつわん） 2024/11/29(金) 19:51:09

わかりましたやってみます
（ひろ） 2024/11/29(金) 20:36:05

参考例です。

 Sub コピーして保存()
    Dim 最終行 As Long
    ' D列の最終行を取得
    最終行 = Cells(Rows.Count, "D").End(xlUp).Row

    ' A1からD列の最終行までをコピー
    Range("A1:D" & 最終行).Copy

    ' 値として貼り付け
    Range("A1").PasteSpecial Paste:=xlPasteValues

    ' 保存
    ActiveWorkbook.Save
 End Sub

（筒） 2024/11/29(金) 20:58:11

参考にしてみます
（ひろ） 2024/12/03(火) 22:33:22

コメント返信：