vba第1至10列生成随机密码

好的，以下是使用 VBA 生成随机密码的示例代码，该代码会生成第1至10列的随机密码：

Sub GenerateRandomPasswords()
    Dim password As String
    Dim randomValue As Integer
    Dim chars As String
    chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!@#$%^&*()_+"
    
    For i = 1 To 10 '循环处理第1至10列
        For j = 1 To 10 '循环处理每一行
            password = ""
            For k = 1 To 8 '生成8个字符的随机密码
                randomValue = Int((Len(chars) * Rnd) + 1)
                password = password & Mid(chars, randomValue, 1)
            Next k
            '将生成的密码填充到对应的单元格中
            Cells(j, i) = password
        Next j
    Next i
    
    '提示生成完成
    MsgBox "Random passwords generated!"
End Sub

这段代码会生成包含大小写字母、数字和一些特殊字符的字符串，然后在 Excel 的第1至10列中的每一行生成一个 8 个字符的随机密码。最后会弹出一个消息框提示生成完成。