按Alt+F11进入VBA编辑器,插入新模块,粘贴指定代码后按F5运行程序,C列将显示一:的处理结果,D列则为二:的结果。
m = 1
Next
Next
Next
m = 1
Next
Next
Next
Next
End Sub

C2公式为:
说明:
RANDBETWEEN(1,4) 表示从1到4中随机选取一个整数。
OFFSET函数用于偏移引用位置。
从A1单元格向下偏移1至4行,返回对应位置的单元格引用。
以A1为基准,随机向下偏移1至4行、0列,取该单元格的值。
需将两个随机值通过连接符&组合,最终结果即为两者相连的字符串。
因此最终公式是:
自定义一个函数即可。
随机化:更改生成随机数的初始种子值
Exit For
End If
Next j
Next i
