Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) Private Sub 抽奖_Click() Dim counter counter = 0 Do counter = counter + 1 MySleep Sheet1.Cells(19, 12) = Sheet1.Cells(7 + WorksheetFunction.RandBetween(1, 16), 5).Value Loop Until counter = 50 Sheet1.Cells(19, 12) = "马谡" End Sub Private Sub MySleep() Sleep 100 End Sub