随机生成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