{quote}{login=}{date=28.03.2011 06:24}{thema=Есть аналог функции ImportHTML и INDEX( (от Google Doc) ?}{post}  
 
С помощью функции INDEX, если я писал INDEX(ImportHTML(A1;"table";X);1;2) то данные поля с B2 по D2 не заполняться...{/post}{/quote}Естественно. А как по-Вашему они должны заполнится, если формул в них нет?  
 
<<<просто в ячейки B2 отобразиться значение, которое при вводе без INDEX оказалось в ячейки С2.  
то есть 1;2; в функции означает номер столбца (1) и номер строки (2) получаемых данных>>>  
 
Замените INDEX(ImportHTML(A1;"table";X);1;2) на    
INDEX(ImportHTML(A1;"table";X);COLUMN(A1);ROW(A2)) и протяните её на необходимый диапазон (с B2 по D2).

Записал макрос, импортнул данные из web, как возможно это превратить в функцию, извините , спец навыков нет  
 
Sub Макрос2()  
'  
' Макрос2 Макрос  
'  
 
'  
   With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.yandex.ru", _  
       Destination:=Range("$D$4"))  
       .Name = "www.yandex.ru"  
       .FieldNames = True  
       .RowNumbers = False  
       .FillAdjacentFormulas = False  
       .PreserveFormatting = True  
       .RefreshOnFileOpen = False  
       .BackgroundQuery = True  
       .RefreshStyle = xlInsertDeleteCells  
       .SavePassword = False  
       .SaveData = True  
       .AdjustColumnWidth = True  
       .RefreshPeriod = 0  
       .WebSelectionType = xlSpecifiedTables  
       .WebFormatting = xlWebFormattingNone  
       .WebTables = """tabs"""  
       .WebPreFormattedTextToColumns = True  
       .WebConsecutiveDelimitersAsOne = True  
       .WebSingleBlockTextImport = False  
       .WebDisableDateRecognition = False  
       .WebDisableRedirections = False  
       .Refresh BackgroundQuery:=False  
   End With  
End Sub