vikttur,k61, спасибо за помощь!

Нет,такой вариант,когда все ячейки  D-E-F у команды пустые,невозможен.  
Задал максимальный диапазон,всё равно не получается. Может потому что абсолютно все данные в текстовом формате?  
vikttur,не могли бы Вы прикрепить формулу к примеру?

В формуле не разобрался,но вроде  немного не то.  
Число строк в списке фиксировано 10000,а вот число строчек для каждого матча не фиксировано,поэтому нужно ещё как-то включить проверку по командам B&C.

Помогите,пожалуйста,с формулой.  
В столбцы Q и R нужно вписать формулы, чтобы напротив даты копировало коэффициенты,взятые из первой непустой строки (D-E-F)  для соответствующего матча.

egonomist, благодарю!

а счастье было так близко:))

Возможно ли как-нибудь получить эту таблицу со всеми гиперссылками на лист Excel?  
http://www.racingpost.com/greyhounds/card.sd  
 
Пробовал макрорекордером,не получается:(

LightZ , благодарю! То что нужно.

Вобщем кое-как удалось получить данные, но они оказались не в том формате в котором нужно (вроде в формате времени)  
 
Визульно наблюдаем в ячейке 0:01 ,если выделить ячейку,то в строке формул видно 0:01:00, а если скопировать куда-то то оказывается в ячейке 0,00069444444.  
 
Нужно копировать данные макросом из столбца "A" в столбец "B" в текстовый формат.  
К примеру видим в ячейке A1 0:01,в ячейке B1 должно быть всего четыре символа 0:01 в текстовом формате. Возможно такое сделать?

))))))  Спасибо! И за помощь и за то что подняли настроение своим юмором

В ячейке А1 есть гиперссылка, в ячейку А2 нужно получить данные,если пройти по этой гиперссылке.  
сначала получаю адрес гиперссылки    
   
GS=Range("A1").Hyperlinks(1).Address    
   
затем пытаюсь вставить полученный адрес в запрос    
 
Worksheets("Лист1").QueryTables.Add(Connection:= _  
       "URL;&GS&", Destination:= _  
       Worksheets("Лист1").Range("A2"))  
         
В итоге выдаёт ошибку. Понимаю что как-то неправильно сцепил адрес,а вот как правильно сделать не знаю.Подскажите,пожалуйста,кто знает.

Помогите,пожалуйста,сам не соображу.  
Записал макрорекордером запрос    
 
Sub ()  
 
   With ActiveSheet.QueryTables.Add(Connection:= _  
       "URL;http://www.futbol24.com/national/Russia/Premier-Liga/2012-2013/statistics" _  
       , Destination:=Range("$A$1"))  
       .Name = "statistics_1"  
       .FieldNames = True  
       .RowNumbers = False  
       .FillAdjacentFormulas = False  
       .PreserveFormatting = False  
       .RefreshOnFileOpen = False  
       .BackgroundQuery = True  
       .RefreshStyle = xlInsertDeleteCells  
       .SavePassword = False  
       .SaveData = True  
       .AdjustColumnWidth = True  
       .RefreshPeriod = 0  
       .WebSelectionType = xlSpecifiedTables  
       .WebFormatting = xlWebFormattingAll  
       .WebTables = "4"  
       .WebPreFormattedTextToColumns = True  
       .WebConsecutiveDelimitersAsOne = True  
       .WebSingleBlockTextImport = True  
       .WebDisableDateRecognition = True  
       .WebDisableRedirections = True  
       .Refresh BackgroundQuery:=False  
   End With  
End Sub  
 
В итоге выдаёт вот такое:  
total goals 106 2.65  
home goals 65 1.63  
away goals 41 1.03  
 
Как изменить запрос чтобы в ячейку А1 выводило не всю таблицу,а только значение 1.63 ?  
И что можно удалить из той кучи строчек лишнее и чтобы не повлияло на конечные данные?

ikki, спасибо  
 
Записывал до этого марорекордером,так выдало вот такое    
Range("A1").Select  
Selection.Copy  
Range("С3").Select  
ActiveSheet.Paste  
 
Это показалось каким-то громоздким.А про Сopy я читал только что относится к Range и копирует:) А вот как именно применяется и синтаксис этой функции что-то нигде не написано, да и скорее всего не там читаю....

Не судите строго,только начал изучать VBA.  
 
Вобщем нужен макрос,который копирует полнустью одну ячейку в другую  
A1---->C3  
A2---->C9  
A3---->C15  
 
Написал вот такой,но он копирует только значения,а нужно чтобы кроме значения копировался ещё и формат. Что в него добавить,или как лучше и проще всё сделать?  
 
Sub ()  
Dim i As Byte, j As Integer  
j = 3  
For i = 1 To 150 Step 1  
   Cells(j, 3) = Cells(i, 1)  
   j = j + 6  
Next i  
End Sub

{quote}{login=nerv}{date=13.08.2012 01:25}{thema=}{post}играйтесь, господа{/post}{/quote}  
Это всё равно что неграм в Африке кинуть шайбу и сказать "Играйтесь,господа" в лучшем случае они её ногами пинать начнут:)  
Мне изначально нужен был другой ответ. Сссылка на веб-ресурс или книгу (к примеру Пупкин В. VBA для кофейников, стр 660-666) где всё подробно описано, чтобы новичок сам смог такое написать.

Спасибо! Но всё это конкретные примеры с редкими пояснениями.Сам по примерам я вряд ли смогу научиться,уровень не тот. Нужен теоретический материал,где подробно описано как макросом получить данные с главной страницы, как в этом же макросе пройти несколько раз по ссылкам, затем скопировать 27-ю цифру 4й строки с 5й страницы:) и.т.д. Или до этого всего нужно дойти самому и в книгах или на сайтах нигде подробно не разжёвано?

Здравствуйте! Подскажите пожалуйста книгу и веб-ресурс где подробно описано как получать данные с веб-страниц, описание всех функций, обьяснение работы с HTML, и.т.п  
 
А то натыкаюсь только на конкретные примеры,а что к чему в этих примерах не понятно.Хотелось бы самому научиться вытягивать нужные данные с сайтов.