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

Answer 2

尝试此代码（UN-Tested）

   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

Microsoft Excel复制并粘贴日期格式

2 个答案: