VBAについての質問です

ご教授よろしくお願いいたします。
AJ列にNow関数（yyyy/mm/dd ○○:○○）を設定し、数値は日付としています。別ブックに貼り付けるマクロを作成しました。しかしながら貼り付け先には×××××.×××××となり、数値も標準になります。改めて数値を日付に変えると変換されます。マクロを修正することで解決できないでしょうか。よろしくお願いいたします。
Sub 転記()

Range("AJ4:AS4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim wb As Workbook
Set wb = ThisWorkbook
Dim wb2 As Workbook
Set wb2 = Workbooks.Open("C:\○○\○○.xlsx")
Dim GYOU2 As String

wb.Worksheets("元").Range("AJ4:AS4").Copy

wb2.Sheets("先").Select
GYOU2 = Sheets("先").Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & GYOU2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

wb2.Save
wb2.Close
wb.Save
End Sub

No.4 回答者： ssawatake 回答日時： 2024/05/27 12:28

セルを丸ごとコピー＆貼り付けすれば良いのでは？

wb.Worksheets("元").Range("AJ4:AS4").Copy Range("A" & GYOU2)
で良いです。

この回答へのお礼

お礼日時：2024/05/27 13:47

No.3 回答者： yokomaya 回答日時： 2024/05/27 12:07

Range("A" & GYOU2).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
を
Range("A" & GYOU2).PasteSpecial
に変える

この回答へのお礼

お礼日時：2024/05/27 13:47

No.2 回答者： fujillin 回答日時： 2024/05/27 11:30

こんにちは

ご提示のコードでは、値のみのコピペを行っているので書式は反映されません。
問題がないならば、書式ごとまとめてコピペを行えばよいでしょう。

数式などがあって、コピペではうまく行かない場合は
　・書式をコピペしてから、値をペースト
　・値をペーストした後で、必要なセルに書式を設定
することでも解決できると思います。

記述方法がわからなければ、マクロの記録を利用することで確認できるでしょう。

この回答へのお礼

お礼日時：2024/05/27 13:47

No.1 回答者： ssawatake 回答日時： 2024/05/27 11:28

コピー先の書式を日付型に直して置いてからコピーすれば良いのでは？

Range("??").NumberFormatLocal = "yyyy年mm月dd日"

つまり、Range("A" & GYOU2).Selectの前に1行以下を追加
↓
Range("A" & GYOU2).NumberFormatLocal = "yyyy年mm月dd日"

この回答へのお礼

お礼日時：2024/05/27 13:48