Vba 重复Excel宏命令1000行

我在工作表中有1000行，并且有以下宏：

Sub ares()

Application.ScreenUpdating = False 'potlačí obnovování obrazovky
Application.DisplayAlerts = False 'potlačí varovné hlášky

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "ares"
Sheets("ares").Activate 'přesun na tento nový list

'XML dotaz do ARESU s tím, že ičo máme na první listu v buňce C2 a importovná data chceme vložit do buňky A1
ActiveWorkbook.XmlImport URL:="http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?obchodni_firma=" & Sheets(1).Range("C2").Value, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

Sheets(1).Activate 
Sheets(1).Range("A2") = Sheets("ares").Range("AK3") 
Sheets("ares").Delete 'smazání pomocného listu

Application.ScreenUpdating = True 'zapne obnovování obrazovky
Application.DisplayAlerts = FaTruelse 'obnoví varovné hlášky

End Sub

我想在1000行的范围内重复此任务，而不是上面显示的内容。

这是未经测试的：

Sub ares()

Application.ScreenUpdating = False 'potlací obnovování obrazovky
Application.DisplayAlerts = False 'potlací varovné hlášky

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "ares"
Sheets("ares").Activate 'presun na tento nový list

For i = 2 To 1002
    ActiveWorkbook.XmlImport URL:="http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?obchodni_firma=" & Sheets(1).Range("C " & i).Value, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

    Sheets(1).Range("A" & i) = Sheets("ares").Range("AK3")

    Cells.Select
    Selection.ClearContents
    Range("A1").Select
Next i


Sheets("ares").Delete 'smazání pomocného listu

Application.ScreenUpdating = True 'zapne obnovování obrazovky
Application.DisplayAlerts = True 'obnoví varovné hlášky

End Sub

---

这是经过测试的。谢谢

亚战区 对于i=14到17 Application.screenUpdate=False'potlacíobnovováníobrazovky Application.DisplayAlerts=False'potlacívarovnéhlášky Sheets.AddAfter:=SheetsSheets.Count.Name=ares 床单。激活“压力表”列表 ActiveWorkbook.xml导入URL:=http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?obchodni_firma= &Sheets1.RangeC&i.值，导入映射：=无，覆盖：=真，目标：=范围$A$1 Sheets1.Range&i=Sheetsares.RangeAK3 单元格。选择 选择.ClearContents 范围A1.选择 Sheetsares.删除“smazánípomocného listu” Application.screenUpdate=True'zapne obnovováníobrazovky Application.DisplayAlerts=True'obnovívarovnéhlášky 接下来我

---

End Sub是否要更改每一行的url？为什么不使用for循环？是的，我需要将url示例从&Sheets1.RangeC2更改为&Sheets1.rangec3 FaTruelse是否真的是一件事？@David G这是一种书写替代真理的新方法-只需将其包装在错误中即可。