Microsoft Excel复制并粘贴日期格式

Question

任何人都可以帮我复制和粘贴,但保持所有数字的所有日期和数字的数据格式.例如,我的客户ID应为3位数(000),日期为日期格式.但是当我复制和粘贴时,日期变成了一个奇怪的整数,ID变为1位数.这是现在的输出

复制自:

001 AVC BDE 130 6/23/2013

当我粘贴它变成:

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

有人可以帮忙吗？这是我的代码

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

Answer 1

假设您对复制字段中的格式感到满意,那么您可以只进行简单的粘贴而不是粘贴特殊.现在你的代码只是因为这行而粘贴值:

Paste:=xlPasteValues

您也可以将其更改为:

Paste:=xlPasteValuesAndNumberFormats