Здравствуйте! подскажите возможно ли и как вытащить из ячейки даты и перенести в другую ячейку с переносом в каждую ячейку. пример во вложении (может макрос какой?)
Sub iDate()
Dim mo As Object
Dim n As Integer
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.MultiLine = True
.Pattern = "\d{2}\.\d{2}\.\d{2,4}г\.? ?- ?\d{2}\.\d{2}\.\d{2,4}г?"
If .test(Cells(1, 1)) Then
Set mo = .Execute(Cells(1, 1))
For n = 0 To mo.Count - 1
Cells(n + 1, 2) = mo(n)
Next
End If
End With
End Sub