Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Поиск коэффициентов с первой непустой строки
 
Помогите,пожалуйста,с формулой.  
В столбцы Q и R нужно вписать формулы, чтобы напротив даты копировало коэффициенты,взятые из первой непустой строки (D-E-F)  для соответствующего матча.
Помощь по макросу (веб-запрос)
 
Помогите,пожалуйста,сам не соображу.  
Записал макрорекордером запрос    
 
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 ?  
И что можно удалить из той кучи строчек лишнее и чтобы не повлияло на конечные данные?
Макрос копирует только значения (нужно ячейку целиком)
 
Не судите строго,только начал изучать 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
Получение данных с веб-страницы.(где почитать?)
 
Здравствуйте! Подскажите пожалуйста книгу и веб-ресурс где подробно описано как получать данные с веб-страниц, описание всех функций, обьяснение работы с HTML, и.т.п  
 
А то натыкаюсь только на конкретные примеры,а что к чему в этих примерах не понятно.Хотелось бы самому научиться вытягивать нужные данные с сайтов.
Страницы: 1
Наверх