excel - 复制单元格时出现问题(当我想要 dd/mm/yyyy 时默认为 mm/dd/yyyy)

Question

我在下面有一些代码可以查找任何更改并在另一张表上找到匹配项并更新任何更改，但是转移时的日期从 dd/mm/yyyy 的英国格式转换为 mm/dd/的美国样式日期yyyy 使工作表中的所有日期都不正确。

有人可以帮助并建议我如何让它保持原样吗？谢谢!”

 Dim s1rw As Long, s2rw As Long, col As Long, endcol As Long    
 Sheets("Sheet1").Select  
With Sheets("Sheet2")  
s2rw = 2 ' Adjust to first data row #  
endcol = .Cells(s2rw - 1, 1).End(xlToRight).Column  
Do Until .Cells(s2rw, 1).Value = "" ' Loop through case #s  
s1rw = 0  
On Error Resume Next  
s1rw = Cells.Find(What:=.Cells(s2rw, 1).Value, LookIn:=xlFormulas, LookAt:=xlWhole).Row  
On Error GoTo 0  
If s1rw > 0 Then ' Found case #  
For col = 1 To endcol ' Loop through columns  
If Cells(s1rw, col).Value <> "" Then  
.Cells(s2rw, col).Value = Cells(s1rw, col).Value  
 End If  
 Next  
 End If  
    Rows(s2rw).Delete  
 s2rw = s2rw + 1  
Loop  
 .Select  
 End With   

Answer 1

Range.NumberFormat()更改单元格格式的方法将允许您在 VBA 代码中设置自己的自定义格式。 http://msdn.microsoft.com/en-us/library/office/ff196401%28v=office.15%29.aspx