Определите значение последней страницы URL

Question

Я написал инструмент для просмотра веб-страниц, который ищет веб-сайт и возвращает совпадения с этого конкретного веб-сайта. Многие страницы будут возвращены. Таким образом, я могу извлечь все страницы, которые я использовал, в цикле, в котором я поместил номера страниц в лист / столбец A, чтобы эти числа (значения) использовались для перехода на разные веб-страницы.

Есть ли способ определить, сколько страниц было выбрано, т.е. определить последнюю страницу?

В настоящее время я предполагаю, сколько страниц может быть, что работает, но было бы лучше, если бы я знал, что точное число веб-страниц необходимо будет пролистать

Dim i As Integer
Dim code As String
Dim LastRow As Long
Dim Input1 As String
Dim Input2 As String
Dim URLend As String     


Sheets("PageNumbers").Select

 LastRow = Cells(Rows.Count, 1).End(xlUp).Row

  For i = 2 To LastRow

    code = Range("A" & i).Value               


     ActiveWorkbook.Worksheets.Add
     With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.blabla/blabla/in-'" & Input1 & "' + '" & 
     Input2 & "/list-" & code _
     & URLend, Destination:=Range("$A$1"))

    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True        

    End With

 Next i

    Sheets("Update").Select

    i = i + 1    

End Sub

Answer 1

Итак, добавьте сообщение в строку состояния, используя что-то вроде:

Application.StatusBar = "Last page was " & i