excel - 粘贴数组时的VBA，NumberFormat

Question

我有以下 vba 代码，但我想将其粘贴为 dd-mm-yyyy 格式。

Worksheets("stack").Range("M" & LastRowM + 1 & ":" & Cells(LastRowM + UBound(PasteArr, 1) - 1, 18).Address).Value = PasteArr

我试过了:

   Worksheets("stack").Range("M" & LastRowM + 1 & ":" & Cells(LastRowM + UBound(PasteArr, 1) - 1, 18).Address).Value = PasteArr.Numberformat = ('dd-mm-yyyy')

我不确定这个的格式。我在哪里放数字格式？

Answer 1

在另一行，两个 Action :

Worksheets("stack").Range("M" & LastRowM + 1 & ":" & Cells(LastRowM + UBound(PasteArr, 1) - 1, 18).Address).Value = PasteArr
Worksheets("stack").Range("M" & LastRowM + 1 & ":" & Cells(LastRowM + UBound(PasteArr, 1) - 1, 18).Address).NumberFormat = "dd-mm-yyyy"

但是我们可以用 With 把它缩短一点。和 Resize

With Worksheets("stack").Range("M" & LastRowM + 1).resize(Ubound(pasteArr,1),18)
    .Value = PasteArr
    .NumberFormat = "dd-mm-yyyy"
End With