マクロのコードを知りたい。値のみ貼り付けにしたい

Sub ⑩個別のソート番号を全体会発表用提出にコピペ()
Dim SH As Worksheet
'【ソートする】
Worksheets("個別用").Range("B:B").Sort Key1:=Worksheets("個別用").Range("B2"), Order1:=xlAscending, Header:=xlYes
For Each SH In Worksheets
If SH.Name Like "*全体会発表用*" Then
'【コピーする】
Worksheets("全体会発表用").Range("B:G").Copy Destination:=SH.Range("B:G")
End If
Next SH
End Sub

上記のように全体会発表用シートが５つほどあります。ここに、値のみ貼り付けにしたいのですが、
コードがうまくかけません、どのようにしたらよいかお教え願えませんか。

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2022/01/27 13:49

こんにちは。

個別用のシートから、全体会発表用シートが５つへ貼り付けですよね？
先ず、コピーが逆な様な気がします。
全体会発表用をコピーして、*全体会発表用*へ貼り付けている様ですが。

個別用　→　全体会発表用シートが５つへ貼り付け　と思って回答します。
実際に試していませんが、値だけでしたら、Valueでも可能ですので、
セル範囲を同じにして ＝ で値だけコピーしています。

Sub ⑩個別のソート番号を全体会発表用提出にコピペ()
Dim SH As Worksheet,myDatCnt as Long
'【ソートする】
Worksheets("個別用").Range("B:B").Sort Key1:=Worksheets("個別用").Range("B2"), Order1:=xlAscending, Header:=xlYes
myDatCnt = Cells(Rows().Count, 2).End(xlUp).Row’使用している末尾の行番号を取得
For Each SH In Worksheets
If SH.Name Like "*全体会発表用*" Then
'【コピーする】
SH.Range("B1:G" & myDatCnt).Value = Worksheets("個別用").Range("B1:G" & myDatCnt).Value
End If
Next SH
End Sub

この回答へのお礼

早速のご回答ありがとうございました。完成しました。助かりました。

お礼日時：2022/01/27 17:21

No.1 回答者： 初心者ですが何か。 回答日時： 2022/01/27 12:53

https://kosapi.com/post-870/

ここかな？

この回答へのお礼

ありがとうございました。

お礼日時：2022/01/27 17:21