VBA 批量生成随机用户名和密码 (含大小写字母和数字)

您可以使用 VBA 编写一个函数来生成随机的用户名和密码，包含大小写字母和数字。以下是一个示例代码：

Function GenerateRandomString(length As Integer) As String
    Dim validChars As String
    validChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'
    
    Dim result As String
    Dim i As Integer
    
    For i = 1 To length
        result = result & Mid(validChars, Int((Len(validChars) * Rnd) + 1), 1)
    Next i
    
    GenerateRandomString = result
End Function

Sub GenerateRandomUsernamesAndPasswords()
    Dim usernames As Range
    Dim passwords As Range
    Dim cell As Range
    
    ' 假设用户名和密码分别在 A 列和 B 列，从第 2 行开始
    Set usernames = Range('A2:A10')
    Set passwords = Range('B2:B10')
    
    ' 循环遍历每个单元格，并生成随机的用户名和密码
    For Each cell In usernames
        cell.Value = GenerateRandomString(8) ' 生成 8 位随机用户名
    Next cell
    
    For Each cell In passwords
        cell.Value = GenerateRandomString(10) ' 生成 10 位随机密码
    Next cell
End Sub

要使用这个代码，您可以在 VBA 编辑器中打开 Excel，并将代码复制粘贴到一个模块中。然后，您可以运行 GenerateRandomUsernamesAndPasswords 子程序来生成随机的用户名和密码，并将结果填充到指定的单元格范围中（在示例代码中是 A2:A10 和 B2:B10）。

请注意，这个代码使用 GenerateRandomString 函数来生成随机字符串。您可以根据需要修改函数中的 length 参数来生成不同长度的随机字符串。