手っ取り早いランダム文字列を生成するExcel マクロを作成しました。
文字列の長さは8文字。生成した文字列をアクティブセルに表示します。
Sub RandomStr() On Error GoTo ErrHandler Const maxChars = 8 Dim str As String Dim i As Integer Dim c As Integer Dim res As String str = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" res = "" Randomize For c = 1 To maxChars ' Int((upperbound - lowerbound + 1) * Rnd + lowerbound) i = Int((Len(str) - 1 + 1) * Rnd + 1) res = res & Mid(str, i, 1) Next Debug.Print res ActiveCell.Value = res Exit Sub ErrHandler: Debug.Print Err.Number & ":" & Err.Description Resume Next End Sub