Dim i As IntegerFor i = 1 To 300 Tables("表B").Rows(i)("第一列") = "123" Application.DoEvents() System.Threading.Thread.Sleep(100) Next