使用Excel Vba粘贴数据时出错

Question

我的工作表1中有17列，当我复制工作表2中的数据时，只有13列用指定的格式表2粘贴。

在那17列中，我有日期和时间戳。 13列以下的日期粘贴yyyy-mm-dd hh：mm：ss格式并粘贴超过第13列的日期（如果这是2018-03-01 03:00:00）它被粘贴为43160.125

我使用的代码是

sht1.Cells.Copy
sht2.Range("A1").PasteSpecial xlPasteValues

P.S：我也使用过NumberFormat，但没用。

Answer 1

尝试此操作（未经测试）

sht1.Cells.Copy
sht2.Range("A1").PasteSpecial xlPasteFormats
sht2.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False