Копировать дату на другой лист

Question

Ниже приведен код для копирования данных с одного листа на другой на основе некоторых фильтров.

Столбец I - это дата, которая основана на формуле Столбец I = Столбец A + 10 дней. Мой макрос копирует столбец In в столбец F нового листа. Я хочу, чтобы дата копировалась в том же формате, что и там. Например, если столбец А 4/1/2020, то столбец I будет показывать 4/11/2020. Я хочу, чтобы макрос скопировал таким же образом и вставил 4/11/2020 в столбец F.

    With sourceSheet

        ' Get last row
         lastRow = .Range("J" & .Rows.Count).End(xlUp).Row


        .Range("A1:Q1").AutoFilter Field:=14, Criteria1:="PENDING"
        .Range("A1:Q1").AutoFilter Field:=10, Criteria1:="USA"    ', Operator:=xlOr, Criteria2:="CANADA"
        .Range("A1:Q1").AutoFilter Field:=2, Criteria1:="USA"     ', Operator:=xlOr, Criteria2:="CANADA"

        .Range("K2:K" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
                                     Destination:=targetSheet.Range("G2")
        .Range("C2:C" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
                                     Destination:=targetSheet.Range("A2")
        .Range("E2:E" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
                                     Destination:=targetSheet.Range("B2")
        .Range("G2:G" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
                                     Destination:=targetSheet.Range("C2")
        .Range("I2:I" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
                                     Destination:=targetSheet.Range("F2")



    End With

Answer 1

Пожалуйста, используйте ниже ..

.Range("I2:I" & lastRow).SpecialCells(xlCellTypeVisible).Copy
         targetSheet.Range("F2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats