Excel 在VBA中粘贴时的日期格式_Excel_Vba_Date_Format

Excel 在VBA中粘贴时的日期格式

excel vba date

Excel 在VBA中粘贴时的日期格式,excel,vba,date,format,Excel,Vba,Date,Format,下面的代码只是复制和粘贴一个日期，它的格式通常是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.Worksheet

下面的代码只是复制和粘贴一个日期，它的格式通常是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”列中。我如何在这里添加格式？我可以吗

只需添加一些行即可更改单元格格式：

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"