Bu dediğiniz formülle yapılıyor mu bilmiyorum ama VBA ile yapılmışı Murat Osma'nın forumda paylaştığı bir mesajda var.
Sub Sifreyap()
Dim Sifre As String
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 5
If j Mod 1 = 0 Then
Sifre = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Sifre
End If
Next j
Cells(i, "A") = Sifre
Sifre = ""
Next i
j = Empty: i = Empty: Sifre = vbNullString
End Sub
Sub Sifreyap()
Dim Sifre As String
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 5
If j Mod 1 = 0 Then
Sifre = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Sifre
End If
Next j
Cells(i, "A") = Sifre
Sifre = ""
Next i
j = Empty: i = Empty: Sifre = vbNullString
End Sub