ここから本文です

VBA初心者です。

nod********さん

2019/4/2221:23:22

VBA初心者です。

sheet1,E1:G1とE3:G3の値をコピー(E2:G2は省く)
別ブック(ブック2とします)のsheet1に貼り付け。
貼り付けるセルは

E1:G2をブック2のB2:D2へ
E3:G3をF2:H2へ

ブック2sheet1,A2にはマクロを実行した時間を表示。


そして再度マクロを実行した場合、ブック2のB2~には値が入力されているのB3へデータを貼り付け。それを延々と蓄積したいのです。
説明下手で申し訳ありませんが詳しい方よろしくお願いしますm(_ _)m

閲覧数:
20
回答数:
1
お礼:
250枚

違反報告

ベストアンサーに選ばれた回答

ine********さん

2019/4/2222:35:33

ブック2,sheet1の1行目には項目が入力してあるとして
Sub samp1()
Dim las
With Workbooks("ブック2.xlsm").Worksheets("sheet1")
las = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(las, 2), .Cells(las, 4)).Value = Range(Cells(1, 5), Cells(1, 7)).Value
.Range(.Cells(las, 6), .Cells(las, 8)).Value = Range(Cells(3, 5), Cells(3, 7)).Value
.Cells(las, 1).Value = Now()
End With
End Sub

  • 質問者

    nod********さん

    2019/4/2222:49:54

    ご回答ありがとうございます。
    このマクロでコピーするセルを選択しているのはどこになるのでしょうか??
    例えば後々コピーするセルを追加もしくはE1:G1をA1:C1などに変更する場合Cells(1,5)の()内の数値を変更すればよいのでしょうか??

    少し質問とはズレるのですが参考までに教えて頂けますでしょうかm(_ _)m

  • その他の返信を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/4/24 15:04:55

ありがとうございます。
助かりました(^^)
また機会がありましたらお願いしますm(_ _)m

あわせて知りたい

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる