Форматирование даты при вставке в VBA

Question

Бит кода ниже просто копирует и вставляет дату, которая обычно будет иметь вид мм / дд / гг, но может быть чем угодно.

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  

Я бы хотел вставить его в формате ггггммдд в столбце "с". Как мне добавить это форматирование здесь? Могу я?

Answer 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"