2 
    ' Try to format the dates
    Range("N:N").Select
    Selection.NumberFormat = "dd/MM/yyyy"
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

使用此代码尝试解决一些我无法控制的下载数据的问题。表格在存储为文本的日期前有一个空格。例如“2013 年 4 月 11 日”

在 Excel 中进行手动查找和替换可解决此问题，但我希望在之后透视数据和分组，当我尝试使用 VBA 执行此操作时，它会做两件事......

  1. 它不会将所有记录都识别为日期。即使单元格格式已更改，有些仍保持为常规。这意味着用户必须使用 F2+Enter 浏览每一行，然后大量使用数据透视表。

  2. 它反转日/月。即原始数据是 2013 年 1 月 10 日（10 月 1 日），并将其转换为 1 月 10 日。

是否有修复查找/替换或循环修复单元格格式的方法。

4

3 回答 3

1

对于非 VBA 解决方案，您可以DATEVALUE在此实例中尝试该功能。

日期值

用法类似于

 =DATEVALUE(Trim(A1))

或者

 =DATEVALUE(RIGHT(A1, LEN(A1)-1)

假设您的日期在单元格 A1 中

对于 VBA 解决方案，类似

Public Sub ConvertToDate()

Dim endRow As Long
Dim ws As Worksheet
Dim dateColumn As Long
Dim dateval As String
Set ws = Sheet1

'set date column (in this case we set column A)
dateColumn = 1

endRow = ws.Cells(ws.Rows.Count, dateColumn).End(xlUp).Row

For i = 2 To endRow

Dim length As Long

length = Len(ws.Cells(i, dateColumn)) - 1

    'just a quick and dirty check to see if there is value data
    'it isn't set to check for numeric data, so if there is some dodgy
    'string data in the cell then it will fail on the CDate line.
    If length > 3 Then

        'store date string (may use Trim() or Mid() etc...)
        dateval = Right(ws.Cells(i, dateColumn).Value, length)

        'convert to date and change cell value
        ws.Cells(i, dateColumn).Value = CDate(dateval)

    End If


Next i




End Sub
于 2013-11-04T17:11:11.097 回答
1

确保为 dd/mm/yy 设置了 Windows 区域设置。

做你的查找/替换

如果您需要其他处理，请在日期列上运行文本到列。

于 2013-11-04T17:11:57.647 回答
0

我花了大约两个小时在谷歌上搜索这个问题的答案，但没有什么对我有用，即使我的 Windows 区域设置设置为 dd/mm/yy。我将日期转换为正斜杠 dd/mm/yyyy 格式的唯一 VBA 函数是 TextToColumns 函数。

Range("N:N").TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _
        FieldInfo:=Array(1, xlDMYFormat)

我从这个页面找到了答案 - https://social.msdn.microsoft.com/Forums/en-US/e3522eac-13b1-476c-8766-d70794131cc8/strange-date-conversion-while-using-vba-replace-功能？论坛=isvvba

于 2017-08-28T04:38:24.683 回答