您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA生成一列随机字符串

时间:2013-12-10 整理:docExcel.net

用下面的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位长度的随机字符串。

vlookup函数查找又出错了 问题:vlookup函数查找又出错了
回答:...是什么呢?    在前面的微信中兰色已讲过,字符类型的引用并不能当成单元格引用来使用,如 ="a1" 返回的并不是A1的值,而只是一个字符A1而已。如果要返回,就需要用indirect函数把这“符串类型的引用...
Excel2013快速填充功能详细介绍 问题:Excel2013快速填充功能详细介绍
回答:...次课程主要来介绍一下快速填充,它能让一些不太复杂的字符处理工作变得更简单。下面花大篇幅来详细介绍该功能的使用方法,大家感受一下。 如何实现快速填充 ①选中填充起始单元格以及需要填充的目标区域,然后在...
如何用Excel从字母数字字符串中提取数字 问题:如何用Excel从字母数字字符串中提取数字
回答: 此办理方案的根基道理是搜索并返回字母数字字符中的第一个数字,然后只返回其后的数字。 算法 此办理方案包罗建设公式以完成下列任务: 1.将字母数字字符解析为单独的字符。 2.确定解析后的字符中是否有数字。 3....
用自定义函数提取字符串中的重复字符 问题:用自定义函数提取字符串中的重复字符
回答:有时需要将Excel单元格内字符中的重复字符提取出来,例如提取字符“abcdeAbcDe”中重复的几个字符“bce”,如图所示,可以用自定义函数实现。 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,在代码窗口中粘贴...
Excel表格中怎样提取字符串中的特定字符 问题:Excel表格中怎样提取字符串中的特定字符
回答: Excel表格中怎样提取字符中的特定字符。除了直接输入外,从已存在的单元格内容中提取特定字符输入,绝对是一种省时又省事的方法,特别是对一些样式雷同的信息更是如此,比如员工名单、籍贯等信息。 如果我们想快速...
提取字符串中两相邻分隔符之间文本的公式 问题:提取字符串中两相邻分隔符之间文本的公式
回答:有时需要从包含分隔符号的字符中提取子字符,例如Excel工作表的某列中包含类似“200-GH11301-11TB5”的文本字符,该字符被两个相同的分隔符号“-”分成三部分,且每部分的字符数不固定,现在需要提取其中的第2部分内...
相关推荐: