excel中利用VBA生成一列随机字符串 代码
发布时间：2023-07-08 09:59:19
标签：代码,字符串,生成,随机,Excel函数
用下面的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
最后运行代码。如果要生成其他长度的随机字符串，将其中的
For K = 1 To 12
中的“12”改为其他数字即可，如：
For K = 1 To 10
即可生成10位长度的随机字符串。
0
投稿猜你喜欢
Win10系统如何安装杜比音效？Win10杜比音效如何永久试用？杜比音效能够让用户感受到在立体声电影院中，创造出身临其境的空间感觉。那么Wi- 最近有Win10用户反映，在使用电脑的时候，桌面右下角总是会弹出一些Window安全警报的提示，甚至有时候在打开文件的时候也会弹出提示，为此
- 目前Win10系统最新版本是21H2，Windows 10 21H2版本已经被指定为广泛部署状态，用户可以直接通过系统设置的windows更
- Win11 2022大版本更新22H2已经推送了，Windows 11 2022更新提供了更快的搜索，更好的开始菜单体验，多样化的小工具，以
- excel仓库进销存表格模板怎么制作？具体步骤如下：例：单元格J4，>10为黄色，<1为红色，介于10-1之间为绿色。1、先将J
- 红警大战是一款非常经典的游戏，有的用户安装了Win10系统之后，想在电脑上运行这款游戏，但是不知道支持不支持，其实是可以的，红警大战作为一款
- 对于我们这些安装了win10操作系统的人来说，如果我们想更新我们自己的系统，但是在win10的19090版本中有一个更新错误xc190130
- 最近老有同事问WPS使用技巧的事，我就把自己这段时间在WPS中使用过的小技巧整理了一下，希望能对大家起到帮助。 用WPS纵向文本选择去除名单
- 微信是一款广大用户都在使用的社交软件，有时候遇到微信中评论未发怎么办？接下来我们一起往下看卡N微信中评论未发送的详情介绍吧。方法步骤1、在我
- WPS表格怎么添加标签控件？WPS表格zho9ng想要添加标签，该怎么添加呢？下面我们就来看看详细的教程，很简单，需要的朋友可以参考下WPS
- 在人事工作中，HR需要经常借助Excel来处理数据，比如设置员工的生日提醒，计算提成奖金，员工信息查询，又或者员工的综合考评分析等，如果不掌
- 华硕主板pe系统怎么进入？pe系统是独立于操作系统外的一个微型系统，不管任何品牌都可以进入pe系统，但是想要进入pe系统需要通过u盘启动盘，
- Win11如何修改office新的UI界面？相信有很多用户都是不太清楚具体应该如何操作的，对此今天小编就为大家带来通过修改注册表的形式来修改
- 为了更好地保护我们电脑系统的安全，更改win7系统的计算机和工作组名称是很有必要的，也会方便用户在局域网中实现共享和互访。最近有很多装win
- 在Windows 7中，由于超级任务栏的存在，系统允许用户将应用程序快捷方式锁定到任务栏或者开始菜单上。但是，如何把一些系统快捷方式锁定到任
- Windows 10步骤记录是什么？怎么使用？用在安装电脑的时候，当问题步骤记录器开始录制后，打开目标程序，在操作过程中，您每点击一次鼠标，
- 安装win7旗舰版系统后开机右下角弹出"网络上有重名"的系统错误提示，这是怎么回事呢？这种情况怎么办呢？本文将提供Win
- 由于Windows RT系统的封闭性，目前无人可以制作出单独的RT精简包来供大家安装，但是我们可以自己手动来为Windows RT系统进行优
- 在 iOS 15 中，Apple 扩展了对 iPhone 上跨应用程序拖放功能的支持，允许您将文件、图像和选择的文本块从一个地方移动到另一个
- 7月16日消息：微软计划于2020年1月14日结束对win7系统的支持。虽然在支持结束之后用户依然可以继续使用Windows 7系统，但由于
