コピーの結果を値のみ貼り付けにしたいです。

Question

    Dim c As Range, sht As Worksheet
    For Each c In Sheets("data").Range("W2:W" & Rows.Count).SpecialCells(2)
        Do
            For Each sht In Worksheets
                If sht.Name = c.Value & "月" Then
                    Intersect(Sheets("data").Range("AJ:AU"), c.EntireRow).Copy
 sht.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
                    Exit Do
                End If
            Next sht
            Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = c.Value & "月"
            'Sheets("data").Rows(1).Copy Worksheets(Worksheets.Count).Range("A4")
        Sheets("data").Range("AJ1:AU1").Copy Worksheets(Worksheets.Count).Range("A4")
        Loop
    Next c
End Sub

これですと表示法方法をわざわざ設定しているので、教えてほしいです。

Comments

[SHOMI]

タグにExcelとVBAをつけてください。

Answer 1

手元にExcelがないので試せてはいませんが、
XlPasteType enumeration (Excel)

Name	Value	Description
xlPasteValues	-4163	Values are pasted.
xlPasteValuesAndNumberFormats	12	Values and Number formats are pasted.

xlPasteValuesのかわりにxlPasteValuesAndNumberFormatsを使えばよいかと。

Comments

[chie3]

sht.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste: xlPasteValuesAndNumberFormatsに書き換え実行すると
Pasteでfunctionまたは変数が必要ですと表示されます。

[SHOMI]

Paste:の後に=がないからでは

[chie3]

SHOMIさま

出来ました。
有難う御座いました。