DataGenerator

此xlsm文件包含用于创建随机数据的函数：整数，日期，时间，名称（男性和女性）和单词对您可以添加任何函数以生成不同类型的数据 Option Explicit Public Sub GenerateRandomData() Dim numberLines As Integer numberLines = 1000 '32000 Dim i As Integer For i = 1 To numberLines Cells(i, 1).Value = GetRandomNumber(0, 10) Cells(i, 2).Value = GetRandomDate() Cells(i, 2).NumberFormat = "d/m/yyyy" Cells(i, 3)