谁能帮我复制和粘贴，但保留数据的格式为所有日期的日期和所有数字的数字。例如，我有一个客户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
尝试此代码（未测试）
ActiveSheet.Range("A1:F1").Copy
wkbDisplayOrder.Worksheets("Customer's Order").Select
ActiveSheet.Range("A1").NumberFormat = "@"
ActiveSheet.Range("E1").NumberFormat = "MM/dd/yyyy"
ActiveSheet.Range("A1:F1").PasteSpecial Paste:=xlPasteValues
