Изменить формат данных всего столбца с гггг-мм-дд чч: мм на дд / мм / гггг VBA

Question

Я пытаюсь преобразовать формат данных из гггг-мм-дд чч: мм в дд / мм / мммм Я пробовал разные решения, но ни одно из них не работает, самым близким из них было:

Columns("I:I").Replace What:=" *", Replacement:="", LookAt:=xlPart
Columns("I:I").TextToColumns Destination:=Range("11"), _
DataType:=xlDelimited, FieldInfo:=Array(1, xlDMYFormat)
Columns("I:I").NumberFormat = "dd/mm/yyyy"

Но это выдает ошибку в этих двух строках:

   Columns("I:I").Replace What:=" *", Replacement:="", LookAt:=xlPart
  Columns("I:I").TextToColumns Destination:=Range("11"), _

Answer 1

Это может помочь.

Sub test()
On Error Resume Next
Columns("I:I").Replace What:=" *", Replacement:="", LookAt:=xlPart
Columns("I:I").TextToColumns Destination:=Range("11"), _
DataType:=xlDelimited, FieldInfo:=Array(1, xlDMYFormat)
Columns("I:I").NumberFormat = "dd/mm/yyyy"
End Sub

Answer 2

Столбцы («A: A»). Select

Selection.NumberFormat = «дд \ / мм \ / гггг»

и обратно

Selection.NumberFormat = "гггг-мм-дд"