在多个单元格上生成随机字符VBA

Sub GenerateRandomCharacters()
    Dim rng As Range
    Dim cell As Range
    Dim characters As String
    Dim length As Integer
    Dim i As Integer
    
    ' 设置要生成的随机字符
    characters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
    
    ' 设置要生成的随机字符的长度
    length = 10
    
    ' 设置要生成随机字符的单元格范围
    Set rng = Range("A1:A10")
    
    ' 循环遍历每个单元格并生成随机字符
    For Each cell In rng
        cell.Value = ""
        For i = 1 To length
            cell.Value = cell.Value & Mid(characters, Int((Len(characters) * Rnd) + 1), 1)
        Next i
    Next cell
End Sub