在VBA中循環一個宏

Question

我有宏進一步訪問和API。我在列A中有地址，在列B中有地址。如果我選​​擇C1並激活宏，它將查找地址+郵政編碼並返回結果。但是，我希望它能夠爲後續行自動執行此操作。因此，在A1中查找A1和B1後，我希望它查找A2和B2，並在C2中給出結果等等等等，只要我想要...

我該如何做到這一點？

宏：

Sub APIExecute() 
' 
' APIExecute Macro 
' 
' Keyboard Shortcut: Ctrl+Shift+Q 
' 
    Dim connectionString As String, quertable As QueryTable 
    connectionString = "URL;https://www.conzoom.eu/Webservices/GetMosaic.aspx?address=" & _ 
    ThisWorkbook.Sheets("Input").Range("A1") & "&postcode=" & ThisWorkbook.Sheets("Input").Range("B1") 


    Set quertable = ActiveSheet.QueryTables.Add(Connection:=connectionString, Destination:=ActiveCell) 
    With quertable 
     .FieldNames = False 
     .RowNumbers = False 
     .RefreshOnFileOpen = False 
     .RefreshStyle = xlOverwriteCells 
     .SavePassword = False 
     .SaveData = False 
     .BackgroundQuery = False 
     .AdjustColumnWidth = False 
     .RefreshPeriod = 0 
     .WebSelectionType = xlEntirePage 
     .WebFormatting = xlWebFormattingNone 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .MaintainConnection = False 
     .WebPreFormattedTextToColumns = True 
     .Refresh 
    End With 

End Sub 

Answer 1

簡單的方法是使用一個For-Next循環。

首先將For i=1 to x添加到您的子開頭，其中x是您需要的行數。然後，將Range("A1")更改爲Range("A" & i)，對於B1更改相同。

最後，通過改變Destination:=ActiveCell選擇C範圍Destination:=Range("C" & i)後堅持自己Next i您End With