Microsoft Excel以日期格式复制和粘贴_Excel_Vba_Date_Copy_Paste

Microsoft Excel以日期格式复制和粘贴

excel vba date

Microsoft Excel以日期格式复制和粘贴,excel,vba,date,copy,paste,Excel,Vba,Date,Copy,Paste,谁能帮我复制和粘贴，但保留数据的格式为所有日期的日期和所有数字的数字。例如，我有一个客户ID，它应该是3位数字（000），日期应该是日期格式。但当我复制粘贴时，日期变成了一个奇怪的整数，ID变成了1位数字。这是现在的输出复制自： 001 AVC BDE 130 2013年6月23日当我粘贴它时，它变成：客户ID名称类型金额日期 1 AVC BDE 130 41448 有人能帮忙吗？这是我的密码 ActiveSheet.Range("A1:F1").Copy wkbDisplayOrde

谁能帮我复制和粘贴，但保留数据的格式为所有日期的日期和所有数字的数字。例如，我有一个客户ID，它应该是3位数字（000），日期应该是日期格式。但当我复制粘贴时，日期变成了一个奇怪的整数，ID变成了1位数字。这是现在的输出

复制自：

001 AVC BDE 130 2013年6月23日

当我粘贴它时，它变成：

客户ID名称类型金额日期 1 AVC BDE 130 41448

有人能帮忙吗？这是我的密码

 ActiveSheet.Range("A1:F1").Copy
wkbDisplayOrder.Worksheets("Customer's Order").Select
ActiveSheet.Range("A1:F1").PasteSpecial Paste:=xlPasteValues

尝试此代码（未测试）

假设您对复制字段中的格式感到满意，那么您可以只进行简单的粘贴，而不是特殊粘贴。由于这一行，您的代码现在只粘贴值：

Paste:=xlPasteValues

您也可以将其改为：

Paste:=xlPasteValuesAndNumberFormats

您可以再添加一行，如epaste:=xlPasteFormat吗？对不起，我没有做太多的VBA。

Paste:=xlPasteValuesAndNumberFormats