查找和替换功能自动将单元格格式化为日期

Question

通常在将 PDF 转换为 excel 文档时，某些值会失真且不准确。准确地说，我的“日期”列中的某些单元格在语法上不包含正确的月份。例如，不是“XX Jun”，而是“XX Iun”，其中“XX”代表一天（数字）。

我已经使用了查找和替换功能，它几乎可以完美运行，唯一需要注意的是，替换后，我的单元格被格式化为我希望它们保持不变的日期文本。

因此，如果可能的话，我希望解决的问题是使用查找和替换功能，而不是通过修改我的 VBA 代码将我的单元格格式化为替换后的日期。

Sub Macro2()

Dim rng As Range

Set rng = Application.InputBox("Select Date Column", "Obtain Range", Type:=8)

rng.Replace What:="ian", Replacement:="Jan"
rng.Replace What:="lan", Replacement:="Jan"
rng.Replace What:="iun", Replacement:="Jun"
rng.Replace What:="lun", Replacement:="Jun"

End Sub

为清楚起见，一些屏幕截图显示了我执行代码时发生的情况。

从这里：

到这里：

Answer 1

这对我有用：

Sub Macro2()

    Dim rng As Range, v, c

    Set rng = Application.InputBox("Select Date Column", "Obtain Range", Type:=8)

    'only look at the used range...
    Set rng = Application.Intersect(rng, rng.Worksheet.UsedRange)
    If rng Is Nothing Then
        MsgBox "no cells to fix!"
        Exit Sub
    End If

    With rng
        .NumberFormat = "@"
        For Each c In .Cells
            v = c.Value
            If Len(v) > 0 Then '<<< ignore empty cells
                v = Replace(v, "ian", "Jan")
                v = Replace(v, "Ian", "Jan")
                v = Replace(v, "iun", "Jun")
                v = Replace(v, "Iun", "Jun")
                c.Value = v
            End If
        Next c
   End With

End Sub

Answer 2

与其调用 Range.Replace，不如保留原始列，并使用另一列调用用户定义函数宏来“修复”错误的 OCR 值。该函数将接受一个参数，即“错误”日期的范围，并返回一个字符串。像这样的：

Public Function FixDate(ByVal s As String) As String
  s = Replace$(s, "ian", "Jan")
  [...other replacements...]
  FixDate = s
End Function

然后这样称呼它： =FIXDATE(A2)

这样做的好处是将原始值保留在 A 列以供 QA/QC 使用，并且不会自动转换为日期值。

您可以使用正则表达式库（需要参考）来简化各种替换，而不是使用内置的 VBA Replace() 函数，尽管这可能会导致性能下降。