Question

我有多个行的电子表格，其中一些是日期。问题是虽然有些行是英文日期格式，但很少有其他格式是西班牙语格式，例如。 Octubre 1,2015，Septiembre 1,2014等。将所有这些转换为英文格式日期的最简单方法是什么。

Answer 1

尝试这个小宏：

Sub Converter()
   ary = Split("Enero, January, Febrero, February, Marzo, March, Abril, April, Mayo, May, Junio, June, Julio, July, Agosto, August, Septiembre, September, Octubre, October, Noviembre, November, Diciembre, December", ", ")
   For I = 0 To 23 Step 2
      Cells.Replace What:=ary(I), Replacement:=ary(I + 1)
   Next I
End Sub

Answer 2

以下子选项将选择活动工作表上包含日期的所有单元格（无论其格式如何）。如果您运行它，然后右键单击其中一个选定的单元格并从下拉菜单中选择format cells，您可以决定常用的日期格式：

Sub SelectDates()
    Dim dates As Range
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        If IsDate(cell.Value) Then
            If dates Is Nothing Then
                Set dates = cell
            Else
                Set dates = Union(dates, cell)
            End If
        End If
    Next cell
    dates.Select
End Sub

转换excel西班牙语约会

2 个答案: