Excel解释日期错误

Question

我有个问题。我有这种格式的数据：

13.3.19 00:23:01

我使用宏将其导入一个选项卡，复制到另一个选项卡并替换""用"/"所以它的格式是正确的。但excel拒绝了，并将大部分数据解释为文本，这不是问题，我只是在上面使用日期值。但特别是到了这个日期：

12.3.19 23:52:41

Excel将其解释为美国格式的日期，而不是将其保留为3月12日，而是将其改为12月3日。这使得日期值在我的数据集中只是一部分。

有什么想法吗？

此处的宏代码：

Sub import_data()

Path = Worksheets("Macro").Cells(6, 4).Value
Analysis = ThisWorkbook.Name
Rfrom = Sheets("Macro").Cells(8, 4)
Rto = Sheets("Macro").Cells(9, 4)
Application.DisplayAlerts = False

For Data_Range = Rfrom To Rto
Fname = Sheets("Macro").Cells(Data_Range, 3)
Segment_name = Sheets("Macro").Cells(Data_Range, 4)
'selecting workbook
Workbooks.Open Filename:= _
Path & "" & Fname _

Sheets(Segment_name).Select

Range("A2:W14000").Select
Selection.Copy

Windows(Analysis).Activate
Sheets("Raw_data_import").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows(Fname).Activate
ActiveWindow.Close
Windows(Analysis).Activate



Next Data_Range
Windows(ThisWorkbook.Name).Activate
Sheets("Raw_data_import").Activate
Range("E:G").Select
Selection.Copy
Sheets("Priprava_dat").Select
Range("A:C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Priprava_dat").Range("A:B").Replace ".", "/"

Dim lastRow As Long
lastRow = Range("C" & Rows.Count).End(xlUp).Row
Range("D2").AutoFill Destination:=Range("D2:D" & lastRow)
Range("E2").AutoFill Destination:=Range("E2:E" & lastRow)
Range("F2").AutoFill Destination:=Range("F2:F" & lastRow)
Range("G2").AutoFill Destination:=Range("G2:G" & lastRow)
Range("H2").AutoFill Destination:=Range("H2:H" & lastRow)
Range("I2").AutoFill Destination:=Range("I2:I" & lastRow)
Range("J2").AutoFill Destination:=Range("J2:J" & lastRow)
Windows(ThisWorkbook.Name).Activate
Sheets("Macro").Activate

End Sub

Answer 1

您可以使用设置单元格的数字格式

Sheets("Priprava_dat").Range("A:B").NumberFormat = "dd/mm/yy hh:mm:ss"

就在更改"之前使用到"/">

Sheets("Priprava_dat").Range("A:B").Replace ".", "/"