1、打开Excel，在开发工具栏里点击Visual Basic。
2、在Visual Basic里插入一个新模块，创建一个sub过程。
3、在sub过程中输入：Dim zs As Boolean, i As LongWith Application zs = .DisplayStatusBar .DisplayStatusBar = True For i = 1 To 10000 .StatusBar = "正在写入第" & i _ & "个数据，共10000个数据，请稍候..." Cells(i, 1) = Rnd() Next iMsgBox "写入数据完成。", vbInformation + vbOKOnly, "完成".StatusBar = False.DisplayStatusBar = zsEnd With
