EXCEL中VBA代码重复同一操作10次怎样写

EXCEL中VBA代码重复同一操作10次怎样写

用for循环呀
for i=1 to 10
操作内容
next i

Sub test() MsgBox "asd" End Sub Sub RePlay() Dim i As Integer For i = 1 To 10 test Next End Sub

可以加入循环语句： for Counter = 1 to 10 操作语句 Statements next 或 Counter = 1 do while Counter <=10 操作语句 Statements loop 等等，具体用哪一种方式，要看你想要实现什么功能来选择。

右键单击工作表标签，选择查看代码，输入如下代码：

sub 保存历史数据()     dim irow as integer     dim i as integer     dim ibook as workbook     dim isht as worksheet     on error resume next     set ibook = getobject("f:\历史数据.xls")     '假设保存到历史数据sheet1工作表中，若不是修改下句代码中的sheet1为对应工作表名称。     set isht = ibook.sheets("sheet1")     with isht     i = .range("a65536").end(xlup).row + 1     .range("a" & i) = "'" & worksheetfunction.text(i - 1, "00000")     .range("b" & i) = "'" & worksheetfunction.text(date, "yyy-mm-dd")     .range("c" & i) = worksheetfunction.text(time, "hh:mm:ss")     .range("d" & i) = range("k3")     .range("e" & i) = range("k4")     .range("f" & i) = range("n4")     .range("g" & i) = range("n4")     .range("h" & i) = range("k5")     .range("i" & i) = range("k6")     end with     ibook.windows(1).viluosible = true     ibook.save     ibook.close end sub

插入窗体控件按钮，更改显示名字为“保存”，指定宏“保存历史数据”。需要时，单击“保存”按钮即可。