Question

我编写了一个宏来将一个工作表中的多个单元格值复制并粘贴到另一个工作表中。除了包含日期值的字段外，所有字段都已成功。

例如，当单元格包含＆＃39; 08-Jan-14＆＃39;粘贴的值是一个整数＆＃39; 41647＆＃39;

如何确保新工作表收到的粘贴值采用日期格式？

Sub place_data(Source As Worksheet, Destination As Worksheet, Optional WorkbookName As String,  
Optional rowToWrite As Integer)

Dim iSourceHeader As Integer
Dim iCol As Integer
Dim lSourceEnd As Long
Dim lDestEnd As Long
Dim rSource As Range
Dim rDestination As Range
Dim rngFrom As Excel.Range
Dim rngTo As Excel.Range

Set rngFrom = Workbooks(WorkbookName).Sheets(Source.Name).Range("D51")
Set rngTo = ThisWorkbook.Sheets("Self Test Summary").Range("A" & rowToWrite)

rngFrom.Copy
rngTo.PasteSpecial Paste:=xlValues

Answer 1

您只是粘贴值而不是格式。粘贴后需要再添加一行

rngFrom.Copy
rngTo.PasteSpecial Paste:=xlValues
rngTo.Numberformat = "DD-MMM-YY"

另一种方式

rngTo.Value = rngFrom.Value
rngTo.Numberformat = "DD-MMM-YY"

Answer 2

取代：

rngFrom.Copy
rngTo.PasteSpecial Paste:=xlValues

使用：

rngFrom.Copy rngTo

复制＆amp;在VBA宏中粘贴日期值

2 个答案: