Excel - Estrarre numeri a caso da una cella

[giupi]

Avrei un anecessità.
In una cella ci sono 10 numeri a caso.
Da questa cella devo ogni volta estrarre 4 numeri sulla base della loro posizione.

Nella cella A1 ci sono questi 10 numeri: 2452478013
Nella cella A2 devo immettere 4 numeri 3579 che corrispondono alla posizione dei numeri della cella A1. Questi numeri 3579 dovrebbero restituirmi dalla cella A1 i seguenti numeri: 5, 4, 8, 1 che devono essere riportati come risultato nella cella A3.

Esiste qualche formula?

Grazie.

[Anthony47]

Il modo piu' semplice e' farlo con una funzione personalizzata.

Inserisci in un Modulo standard del vba questo codice:

Codice: Seleziona tutto

Function ScegliNum(ByRef myStr As Range, mySel As Range, Optional ByVal myF As String = "") As String
Dim I As Long, lSel As Long, lStr As String
'
For I = 1 To Len(mySel.Value)
    lSel = CLng(Mid(mySel, I, 1))
    If lSel = 1 Then
        If I < Len(mySel.Value) Then
            If Mid(mySel, I + 1, 1) = "0" Then
                lSel = 10
                I = I + 1
            End If
        End If
    End If
    lStr = lStr & myF & Mid(myStr.Value, lSel, 1)
Next I
If Left(lStr, 1) = myF Then lStr = Mid(lStr, 2)
ScegliNum = lStr
End Function

Poi in una cella scriverai la formula

Codice: Seleziona tutto

=ScegliNum(A1;A2)


Volendo puoi usare un separatore di cifra, scrivendolo nella formula come terzo parametro; esempio:

Codice: Seleziona tutto

=ScegliNum(A1;A2;"-")


Ciao

[giupi]

Perfetto!!! Grazie mille!
Mi hai semplificato una procedura che mi tormentava....

Ciao