在 VBA 中粘贴时的日期格式

【问题标题】：Date formatting when pasting in VBA在 VBA 中粘贴时的日期格式
【发布时间】：2018-05-03 15:58:14
【问题描述】：

下面的代码只是复制和粘贴通常格式为 mm/dd/yy 的日期，但也可以是任何日期。

WB1.Worksheets("WS1").Range(Cells(3, "g"), Cells(RowCountOPR, "g")).Copy
WB2.Worksheets("WS2").Cells(RowCountTrack, "c").PasteSpecial
WB2.Worksheets("WS2").Cells(RowCountTrack, "n").PasteSpecial
WB2.Worksheets("WS2").Cells(RowCountTrack, "t").PasteSpecial

我希望它以 yyyymmdd 的格式粘贴到“c”列中。如何在此处添加该格式？我可以吗？

【问题讨论】：

标签： excel vba date format

【解决方案1】：

只需在后面添加一些更改单元格格式的行：

WB1.Worksheets("WS1").Range(Cells(3, "g"), Cells(RowCountOPR, "g")).Copy
WB2.Worksheets("WS2").Cells(RowCountTrack, "c").PasteSpecial
WB2.Worksheets("WS2").Cells(RowCountTrack, "n").PasteSpecial
WB2.Worksheets("WS2").Cells(RowCountTrack, "t").PasteSpecial 
WB2.Worksheets("WS2").Cells(RowCountTrack, "c").NumberFormat = "yyyymmdd"
WB2.Worksheets("WS2").Cells(RowCountTrack + 1, "c").NumberFormat = "yyyymmdd"

【讨论】：