如何在Excel VBA中跨区域格式正确复制指定格式的日期？

我来给你一个简单直接的解决方案，不用依赖Application.International(xlDateOrder)检测本地格式，就能确保源工作簿中dd/mm/yy格式的日期被正确转换成本地格式显示：

问题的核心在于：当你直接读取源单元格的Value属性时，Excel已经根据当前系统区域设置错误解析了日期（比如US区域会把dd/mm/yy当成yy/mm/dd），再用CDate转换只会延续这个错误。我们需要绕开Excel的自动解析，直接按源格式提取日期的日、月、年部分，手动构建正确的日期值。

具体实现代码 #

Dim strDate As String
Dim dateParts() As String
Dim correctDate As Date

' 获取源单元格的显示文本（确保是dd/mm/yy格式的字符串）
strDate = SourceSheet.Cells(SourceRow, SourceColumn).Text

' 按"/"拆分日期各部分
dateParts = Split(strDate, "/")

' 构建正确的日期：注意顺序是 年、月、日（DateSerial的参数要求）
' 处理两位年份：这里假设是2000年后的日期，若有更早年份可调整逻辑
correctDate = DateSerial(CInt(dateParts(2)) + 2000, CInt(dateParts(1)), CInt(dateParts(0)))

' 赋值给目标单元格，Excel会自动用本地日期格式显示
TargetSheet.Cells(TargetRow, TargetColumn).Value = correctDate

为什么这个方法有效？ #

• 我们读取的是源单元格的Text属性，这是Excel显示的dd/mm/yy格式字符串，不会被系统区域干扰。
• 通过手动拆分日、月、年，用DateSerial构建标准日期值，彻底避免了Excel的错误自动解析。
• 赋值后，Excel会根据当前用户的区域设置自动套用本地日期格式（不管是mm/dd/yy还是dd/mm/yy），完全符合你的需求。

可选的年份处理优化 #

如果你的数据包含1900-1999年的日期，可以调整年份转换逻辑：

Dim yearNum As Integer
yearNum = CInt(dateParts(2))
If yearNum >= 50 Then
    yearNum = yearNum + 1900
Else
    yearNum = yearNum + 2000
End If
correctDate = DateSerial(yearNum, CInt(dateParts(1)), CInt(dateParts(0)))

这样不管用户的区域设置是什么，都能准确将源dd/mm/yy格式的日期转换为正确的日期值，并自动以本地格式显示。

内容的提问来源于stack exchange，提问作者Nacorid