Ciao a tutti!
Mi sono ritrovato con l'esigenza di effettuare la conversione come da titolo, e ho notato che ne qui, ne su altri forum italiani viene affrontato l'argomento. Esistono un sacco di convertitori online, ma nulla che possa essere facilmente sfruttato in Excel.
Quel che mi manca di ottenere è: Specificare come secondo argomento il formato "000" ed ottenere il numero con gli zeri iniziali.
Funziona se il risultato assomiglia ad un numero decimale, quindi senza lettere al suo interno. Prendendo ad esempio
=ConvertiLngToB36(55)
=ConvertiLngToB36(110)
Ottengo correttamente i risultati "1J" e "32".
Utilizzando invece
=ConvertiLngToB36(55;"000")
=ConvertiLngToB36(110;"000")
ottengo "1J" e "032", mentre quel che cerco è avere anche il primo numero con gli zeri iniziali, ossia "01J".
Mi ci sto arrovellando, ma non saprei proprio come impostare la funzione. 
Lascio di seguito il codice completo come riferimento per quanto sopra e nel caso in cui possa mai servire a qualcuno:
Option Explicit
Const CARATTERI As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Public Function ConvertiLngToB36(stringa As String, Optional formato As String = "0") As String
Dim c As String, risultato As String
Dim longDaConvertire As Long
Dim resto As Long
longDaConvertire = CLng(stringa)
If longDaConvertire < 0 Then
ConvertiLngToB36 = CVErr(xlErrValue)
Exit Function
End If
Do
resto = longDaConvertire Mod 36
longDaConvertire = longDaConvertire \ 36
risultato = risultato & Mid(CARATTERI, resto + 1, 1)
Loop Until longDaConvertire = 0
ConvertiLngToB36 = Format(StrReverse(risultato), formato)
End Function
Public Function ConvertiB36ToLng(stringa As String) As Long
Dim risultato As Double
Dim stringaRev As String
Dim i As Integer, indiceLetteraCorrente As Integer
stringaRev = StrReverse(stringa)
For i = 1 To Len(stringaRev)
indiceLetteraCorrente = InStr(1, CARATTERI, UCase(Mid(stringaRev, i, 1))) - 1
If indiceLetteraCorrente < 0 Then
ConvertiB36ToLng = CVErr(xlErrValue)
Exit Function
End If
risultato = risultato + (36 ^ (i - 1)) * indiceLetteraCorrente
Next i
ConvertiB36ToLng = CLng(risultato)
End Function

P.S: Magari lo miglioro rendendolo fruibile anche per i numeri negativi e numeri con la virgola, ma al momento fa quel che mi serve e son contento.