Игорь спасибо, я уже разобрался. Всего-то навсего...,а то прям - файл-пример,та файл-пример

Файл весит 10 мб несколько листов взаимосвязаны а списки адресов так - часть из них  

А без него нельзя? Он весит 10 метров

Доброе утро! Помогите исправить (возможно зациклить) выполнение макроса.

Скрытый текст

Sub Макрос1() Application.ScreenUpdating = False Dim straddress As String straddress = Sheets("Лист1").Range("z2").Value Sheets("Лист2").Select Range("A1:AQ30000").Clear            With ActiveSheet.QueryTables.Add(Connection:= _            "URL;" & straddress _            , Destination:=Range("A1"))            .FieldNames = True            .RowNumbers = False            .FillAdjacentFormulas = False            .PreserveFormatting = True            .RefreshOnFileOpen = False            .BackgroundQuery = True            .RefreshStyle = xlInsertDeleteCells            .SavePassword = False            .SaveData = True            .AdjustColumnWidth = True            .RefreshPeriod = 0            '.WebSelectionType = xlAllTables            .WebSelectionType = xlSpecifiedTables            .WebTables = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,,45,46,47"            .WebFormatting = xlWebFormattingNone            .WebPreFormattedTextToColumns = True            .WebConsecutiveDelimitersAsOne = True            .WebSingleBlockTextImport = False            .WebDisableDateRecognition = True            .WebDisableRedirections = False            .Refresh BackgroundQuery:=False           End With    Call Copy Application.ScreenUpdating = True End Sub

Суть в том, что есть динамический список (периодически обновляется) с веб-адресами по столбцу "Z" Листа1. Данные с веб-страницы вставляются в "A1" Листа2.
"Z2" - выбор веб-адреса из списка ручками. Макрос работает, но как сделать, чтобы макрос автоматически поочередно выбирал ВСЕ веб-адреса из списка столбца "Z", то бишь cначала "Z2" - Макрос1 выполнился, затем "Z3" и т.д. до ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

P.S. Файл ну очень большой)

Да Премного благодарен.  

Спасибо то что надо.Только один вопрос - как исправить чтоб формула работала со второй строки а не с 4?

Но данные вставляются с A2

В-принципе, не нужна

Bema спс за отзыв. Это чуть-чуть не то. Лист 1 это образец- как должно получится. Данные берем из Лист 2

Здраствуйте! На форуме есть темы, аналогичные моей (формулы со СМЕЩ(), ИНДЕКС(СТРОКА()), ДВССЫЛ()), но не могу  их(формулы) довести до ума. В-общем,
на Листе 2 есть два столбца со значениями. В Лист 1 эти значения расположить в один столбец с шагом. Помогите пожалуйста.

Спасибо, что не отказали

Вот другой пример - текстовый К сожалению формулы не работают с текстовыми значениями

в ячейках - текст. "текстовые" числа для наглядности

Garni Спасибо большое!  

Добрый день! Имеется диапазон ячеек - текстовые значения вперемешку с пустыми ячейками.Нужно выписать в другую строку по порядку непустые ячейки.
Спасибо.

спасибо,то что надо. Как я сам не догадался((

Найти из массива A, B, C при D=0 и подставить в диапазон ячеек S:T и N:O. Числа в диапазонах R:U и L:O "идут" по возрастанию. Как в примере F:I. Ячейки с желтым цветом - временные константы(могут изменяться).