VBA シートの指定範囲の操作を別シートに連動させる

シート１にはA列からW列まで値や数式が入力されています。
そのシート１のA5からK91までの操作すべてをシート２に連動させたいです。
シート１の操作はセルの値を変えたり行を追加・削除したりなどがあります。
いいやり方があれば教えてください。
初心者なのでサンプルコードを教えていただけたら助かります。

追記
連動しなくても作業終了時に反映で大丈夫です。
列はA～Kで変わりませんが、行は５～何行になるかわかりません。
最終行のK列に合計という文字が入力されていますのでその行を最終行とします。
現状下記のコードでうまくいってません。

Sub 貼り付け()

Dim r As Long
r = Sheet(1).Columns(4).Find(What:="合        計", LookAt:=xlPart).Row
Range("A6", "Kr").Copy
Sheets(5).Range("A4").Select
ActiveSheets.Paste

End Sub

yo_u

2021/04/22 05:57

まず、それはリアルタイムで連動しなければいけないのですか？一通りの作業が終わった後にそれがシート２に反映されるのではだめなのですか？行の追加や削除したときにA5～K91の範囲は変わるのですか？

321Kurumins

2021/04/22 06:05

連動でなくても大丈夫です。作業終了時に反映で問題ありません。行の追加や削除で範囲は変わります。列はA～Kで変わりないですが行は５～？？となっています。

yo_u

2021/04/22 06:08

A～K以外はシート１とシート２で違い、その部分は変わらないようにするということなのでしょうか？情報だけだと、シートのコピーするのが一番早い気がするのですが。

321Kurumins

2021/04/22 06:16

コピペが一番早いですかね。 Excelに慣れてない方が使うのでなるべく簡単にしようと思っていたのでいろいろ思考錯誤していました。

yo_u

2021/04/22 06:25

あくまで見えている情報だけではという意味です。もう少し具体的な情報があればよい方法はあるかもしれません。数式が入っているものをいじったり、行の追加や削除の操作をできるレベルの人が使うのであれば、シートのコピーくらいの操作はできるかなと思うのですが、使う人のレベルの見極めも必要なのかなと。

321Kurumins

2021/04/22 06:55

情報が不足していて申し訳ないです。

yo_u

2021/04/22 07:17

自分で作れないくらいの初心者なら、差しさわりのない範囲でやりたいことをできるだけ詳しく、（ここでは丸投げだと嫌われる可能性は高いですが）自分である程度やってみているのならやってみたソースなどを載せるとよい回答がつくかもですね。

行動規範の内容に同意します

回答2件

ベストアンサー

たとえばこんな感じでどうでしょう。

VBA
1    Dim moto As Worksheet, saki As Worksheet
2    Set moto = Sheets("Sheet1")
3    Set saki = Sheets("Sheet2")
4
5    Dim lastRow As Long
6    lastRow = moto.Range("D:D").Find(What:="合        計", LookAt:=xlPart).Row
7
8    moto.Range("A5:K" & lastRow).Copy Destination:=saki.Range("A5")
9
10

投稿2021/04/22 09:39

jinoji

総合スコア4592

321Kurumins

2021/04/22 23:15

いつもありがとうございます。助かりました！

行動規範の内容に同意します

いろいろ気になる部分はありますが。。。
とりあえず動かんだろう部分を修正。

vba
1Dim r As Long
2
3Sheets(1).Columns(4).Select
4r = Sheets(1).Columns(4).Find(What:="合        計", LookAt:=xlPart).Row
5Range("A6", "K" & r).Select
6Range("A6", "K" & r).Copy
7Sheets(5).Select
8Range("A4").Select
9Range("A4").PasteSpecial Paste:=xlPasteAll
10