excel中利用VBA生成一列随机字符串 代码

用下面的VBA代码可以在A1:A100区域中生成由大小写字母和数字组成的12位长度的随机字符串，从中挑选几个作为密码用还是不错的。

在Excel中按Alt+F11打开VBA编辑器，双击“工程”窗口中的某个工作表名称，在右侧的代码窗口中输入下列代码：

Sub MakeRandomString()
Dim J As Integer
Dim K As Integer
Dim iTemp As Integer
Dim sNumber As String
Dim RandomStr(1 To 100, 1 To 1) As String
Dim bOK As Boolean
Randomize
For J = 1 To 100
sNumber = ""
For K = 1 To 12
Do
iTemp = Int((122 – 48 + 1) * Rnd + 48)
Select Case iTemp
Case 48 To 57, 65 To 90, 97 To 122
bOK = True
Case Else
bOK = False
End Select
Loop Until bOK
bOK = False
sNumber = sNumber & Chr(iTemp)
Next K
RandomStr(J, 1) = sNumber
Next J
Range("A1:A100").Value = RandomStr
End Sub

最后运行代码。如果要生成其他长度的随机字符串，将其中的

如何在Excel中停止正在运行的宏

如果Excel中的某个宏命令运行时间过长，需要调试或停止其运行，可以按ESC键或Ctrl+Break键，Break键与Pause键是同一个键，通常在Printer Screen键和Scroll Lock键的右侧。Excel会停止宏的运行，并且显示一个对话框： 单击“继续”按钮将继续运行宏命令，

For K = 1 To 12

中的“12”改为其他数字即可，如：

For K = 1 To 10

即可生成10位长度的随机字符串。

用VBA将焦点定位于名称框

Excel中提供了许多快捷键，但遗憾的是没有提供一个快捷键可以将焦点定位与名称框，下面的宏代码就可以实现这个功能。 Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Fun