随机生成12个月销售数据的VBA
Sub 随机生成全年销售数据()
Dim i, w, x, p
For i = 12 To 1 Step -1
Set w = Worksheets.Add
w.name = i & "月"
w.Range("B2") = i & " 月份销售情况"
x = Int(Rnd() * 10)
w.Range("B3") = "产品"
w.Range("C3") = "销售额"
For p = 4 To x + 4
w.Cells(p, 2) = "产品" & p - 3
w.Cells(p, 3) = Int(Rnd() * 1000)
Next p
Next i
End Sub