VBA执行查找替换操作时日期自动转为美式格式问题求解

• VBA的Range.Replace方法执行替换后，会自动按照美式日期规则解析单元格内的纯文本内容：当文本中日期的日字段值≤12时，会自动将日、月位置互换识别为mm/dd/yyyy格式，这和手动按Ctrl+F执行替换时的解析逻辑不一致。
• 原代码存在逻辑错误：DateValue = Cells(x, 3).NumberFormat = "dd/mm/yyyy"是布尔值判断语句，作用是判断单元格当前格式是否等于dd/mm/yyyy，并不会给单元格设置格式，完全没有修正格式的效果。

不要直接调用单元格的Replace方法做替换，先读取单元格完整文本内容，移除前缀后手动按dd/mm/yyyy的规则解析日期，再写入单元格并强制指定格式，从根源绕开VBA的自动日期识别逻辑。
修正后可直接运行的代码如下：

Sub DateConvert()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim x As Long
    Dim rawText As String
    Dim datePart As Variant
    Dim targetDate As Date
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 精准定位C列最后一行数据，避免空单元格导致的行数统计错误
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    For x = 2 To lastRow
        rawText = Trim(ws.Cells(x, "C").Value)
        If rawText <> "" Then
            ' 移除固定前缀文本
            rawText = Replace(rawText, "Invoice Date:", "")
            ' 按斜杠拆分日期片段，强制按日/月/年的顺序解析
            datePart = Split(Trim(rawText), "/")
            If UBound(datePart) = 2 Then
                ' 按年、月、日的参数顺序构造日期，彻底避免月日互换
                targetDate = DateSerial(CInt(datePart(2)), CInt(datePart(1)), CInt(datePart(0)))
                ' 写入日期并强制设置目标格式
                With ws.Cells(x, "C")
                    .Value = targetDate
                    .NumberFormat = "dd/mm/yyyy"
                End With
            End If
        End If
    Next x
End Sub

• 全程不依赖Excel/VBA的自动日期解析，拆分文本后通过DateSerial手动构造日期值，100%保证日、月、年的对应关系不会错乱。
• 移除了原代码中Sheets("Sheet1").Select这类激活工作表的冗余操作，代码运行效率更高，也不会因为当前激活工作表不符导致运行报错。
• 新增空单元格判断逻辑，遇到空白行不会抛出运行错误。

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