3

谁能帮我复制和粘贴，但将数据的格式保持为所有日期的日期和所有数字的数字。因此，例如，我的客户 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
4

2 回答 2

5

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

Paste:=xlPasteValues

您也可以将其更改为：

Paste:=xlPasteValuesAndNumberFormats
于 2013-10-25T02:34:35.700 回答
0

试试这个代码（联合国测试）

   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
于 2013-10-25T02:22:10.407 回答