Problema formato data

Marius44, 23/09/2020 15:30:

---

Ciao
Ritengo che la sequenza di date si possa fare solo con VBA. Questa macro esegue quanto richiesto (per l'eventuale interpolazione devi provvedere tu):

Option Explicit

Sub SequenzaData()
Dim dt, lt, mn As Integer, mx As Integer, ur As Long, a As Long, i As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
mn = Len(Cells(2, 1))
mx = Len(Cells(ur, 1))
dt = CDate(Right(Cells(2, 1), 4) & "/" & Left(Right(Cells(2, 1), 6), 2) & "/" & Left(Cells(2, 1), mn - 6))
lt = CDate(Right(Cells(ur, 1), 4) & "/" & Left(Right(Cells(ur, 1), 6), 2) & "/" & Left(Cells(ur, 1), mx - 6))
a = 1
For i = CDbl(dt) To CDbl(lt)
  If dt > CDbl(lt) Then Stop: Exit For
  a = a + 1
  Cells(a, 5) = dt
  dt = CDbl(dt) + 1
Next i
End Sub

Fai sapere. Ciao,
Mario

---

ABCDEF@Excel, 24/09/2020 15:27:

---

Un saluto a Marius44
Forse non ho capito quello che desideri fare, prova con questo VBA (NB valido solamente se i MESI sono composti da due caratteri)

Sub Cerca()
Dim ur, x, r, rg As Object, Area As Range, DData As Date
ur = Range("D" & Rows.Count).End(xlUp).Row
Set Area = Range("D2:D" & ur)
ur = Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To ur
    If Len(Cells(x, 1)) = 8 Then
        DData = Mid(Cells(x, 1), 1, 2) & "/" & Mid(Cells(x, 1), 3, 2) & "/" & Mid(Cells(x, 1), 5, 8)
        Set rg = Area.Find(DData, LookIn:=xlValues, LookAt:=xlWhole)
        If rg Is Nothing Then
            Cells(x, 3) = "Non trovata"
        Else
             r = rg.Row
             Cells(r, 5) = Cells(x, 2)
        End If
    Else
        DData = Mid(Cells(x, 1), 1, 1) & "/" & Mid(Cells(x, 1), 2, 2) & "/" & Mid(Cells(x, 1), 4, 7)
        Set rg = Area.Find(DData, LookIn:=xlValues, LookAt:=xlWhole)
        If rg Is Nothing Then
            Cells(x, 3) = "Non trovata"
        Else
             r = rg.Row
             Cells(r, 5) = Cells(x, 2)
        End If
    End If
Next x
Set Area = Nothing
Set rg = Nothing
MsgBox "fatto"
End Sub

---