EXCEL VBA 別のシートの列を上から順にマクロ実行する毎の他のシートにコピーされていく方法をお教えください。

Question

VBAではActiveCellをコピーさせることはできますが、「sheet１」はデータ、表示されているのは「sheet２」で
ActiveCell＝セルにマウスを置かずに指定しセルを順番に送りコピーさせる方法をお教えください。

Sub copy()
Range("M" & Rows.Count).End(xlUp).Offset(1).Value = ActiveCell.Value 　　　
ActiveCell.Offset(1, 0).Select
End

VBAではActiveCellをコピーさせることはできますが、「sheet１」はデータ、表示されているのは「sheet２」で
ActiveCell＝セルにマウスを置かずに指定しセルを順番に送りコピーさせる方法をお教えください。
（データ）　　　　　　　　　（表示画面）
Sheet１ 　　　　　　　　　Sheet２
2017/10/1（コピー）→ 　　　2017/10/1
2017/10/2 　　　　　2017/10/2
2017/10/3 　　　　　2017/10/3
2017/10/4 　　　　　　・
2017/10/5 　　　　　　・
2017/10/6 　　　　　　・
2017/10/7 　　　　　2017/10/7
2017/10/7
2017/10/9
2017/10/10
2017/10/11
2017/10/12
・

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してくださ](275d30fa503ecfa8282bc8d7aa0a558e.jpeg)い。

Answer 1

ボタンをクリックするごとに処理させるようですが、設計の必然性はありますか？

一番簡単なのはワンクリック→loop処理ですべて逐次処理させてしまうことです。
ボタンで1ずつやりたいのであれば、処理の最初に「エクセルの最終行を取得する」処理が必要になると思います。
http://officetanaka.net/excel/vba/tips/tips130.htm

かならず最終行であるとは限らないのであれば、システム用の変数(処理したい行数。カウンタ。)を非表示のシートを作ったりしてどこかに保存する仕組みをつくらないといけませんね。ボタンをクリックするごとに挙動を変えるには工夫が必要ですので。

あと質問文が書式崩れしていたり非常に汚く読みづらいです。
ここは後から同じ問題に直面された方も利用できるようにしている場で、みなさんもあなたではなく大多数の誰かのために回答を書いています。以後の利用では気を付けてあげてください。

参考までにループ処理する場合のサンプルマクロを記述します
(http://excelution.net/loop-processing-template-of-excel-vba/から引用→修正)

Sub For_Next_Sample()
 
    '変数の宣言
    Dim i As Long '<== 行数をカウントアップするための変数
    
    '↓ここからループのスタートです。データのある最終行までが対象です。
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    
        'ループ内で繰り返し処理される内容です。ttyp03さんの内容を使っています。
        Worksheets("Sheet2").Cells(i,1).Value = Worksheets("Sheet1").Cells(i,1).Value
        
    Next i 
    '↑ここまでがループです
 
End Sub

Comments

[masayone]

ご回答ありがとうございます。ご指摘ありがとうございます。
65歳のオヤジでVBAほぼ初心者のため、質問も的確にできなく、申し訳ありません。
処理に必要なことは大体わかったとしても、各処理の繋ぎ方順番等のコマンドの書き方がわからない程度のレベルです。
私がこのサイトでご質問出来るレベルでないことは完全に理解出来ました。

[Rocky]

どうぞそのようなことをおっしゃらないでください。私も先人に助けられ今、自由にプログラムができています。今、必要になられたのなら、これから必要なだけ知識として吸収されればよいと思います。
回答を編集してサンプルを作りました。動作のイメージとしてつかんでいただき、修正することでご自身のコードに変えてみてください。

[masayone]

ありがとうございます。
サンプルまで上げて頂き感謝します。
今後ともよろしくお願いいたします。

Answer 2

数式で＝Sheet1!A1 とかしておけば？
それか、単なるコピペをマクロの記録でコード化しなよ。

Comments

[masayone]

ご回答ありがとうございます
Sub セルのコピー()

ActiveWindow.SmallScroll Down:=-3
ActiveCell.FormulaR1C1 = "=Sheet1!R[1]C"
Rows(ActiveCell.Row + 1).Select

End Sub
上記VBAで実現できました。

Answer 3

VBAはActive～を使わなくても、直接参照することができます。
例えばシート1のA1をシート2のA1にコピーする場合。

Worksheets("Sheet2").Cells(1,1).Value = Worksheets("Sheet1").Cells(1,1).Value

上記を行数分ループで処理するようにすればよいでしょう。

Comments

[masayone]

ご回答ありがとうございます。
65歳のオヤジでVBAほぼ初心者のため、質問も的確にできなく、申し訳ありません。
VBAサンプルありがとうございます。
Sub セルのコピー()

ActiveWindow.SmallScroll Down:=-3
ActiveCell.FormulaR1C1 = "=Sheet1!R[1]C"
Rows(ActiveCell.Row + 1).Select

End Sub
このVBAで実現できました。以前は日付を入力し、VLOOKUP関数で他データを表示させていましたが
日付の入力作業とミスが減少します。ありがとうございます。