Ой, а ещё проще: Опять же фигарим числовой ряд (можно при помощи row(), но потом все в числа конверитровать), табоицу соритруем по колонке значений - значения будут в одной части, пустые клетки все в другой). Просто copy/paste данные и сортируем по колонке с числовым рядом.  
Все на местах, данные где надо.

На работе делаю что-то похожее, решаю проблему так (не полный автомат):  
Фильтрую все занятые строчки, т.е. оставляю только пустые.  
У меня все названия "xx" уникальны, у вас в пример нет, посему нужен такой такой шаг: сбоку от отфильтрованной колонки протягиваем числовой ряд (1, 2, 3, 4, 5), такой же числовой ряд у данных. Если в колонке А все названия уникальны, то это не обязательно.  
Дальше вписываем index-match в первую клетку исходника и тянем вниз. Все значения xx встанут на свои места.

У меня такое решение получилось (англ. версия):  
={SUMPRODUCT(--($B$4:$B$12=$B16);--(IFERROR(FIND(C$15;$C$4:$C$12);0)))}

Думаю в данном случае правильнее будет сказать "Импортирую в Эксель".  
Жму кнопку Get external data -> from access  
Выбираю DB.  
Выбираю запрос.  
Ок.  
 
Никаких самодельных ВБА скриптов или сторонних аддонов не использую.

Собственно, через стандартный Get external data from access, там вроде как нету опции выбора типа экспорта.

Та же песня, к сожалению. Запрос правильно выдает таблицу, а эксель её не берет.  
 
Кстати, если что, то офис 2010.

Добрый день.  
Собственно, вот она - проблема.  
Есть запорс в БД в аксесе, в Эксель экспортируется нормально, обновляется по нажатию кнопки. Стоит в критерее отбора добавить like "что-то со звездочкой*", в Экселе по обновлению таблица пуста. Сам запрос в аксесе открывается как следует. Если ограничения обычные: = < > or and, то все хорошо.  
 
В чем дело, кто-нибудь сталкивался с подобным?

Да, текст по столбцам работает, но только если одна колонка выделена, естественно. Пастчу обычно несколько, поэтому тоже не совсем вариант, но альтеранитва хоть какая-то.  
 
И всё же, в ВБА хоть есть фунция конверсии такой?

Добрые день,  
Может кто располагает информацией, как можно конвертировать числа, записанные текстом, в нормальные числа, помимо желтого ромбика с предупреждением? Может есть такая функция?

{quote}{login=webley}{date=11.07.2011 02:34}{thema=}{post}это не та ошибка, на которую проверяет iserror  
 
попробуйте так:  
Function xmatch(whatcell As Range, where As Range, whatreturn As Range)  
   xmatch = 0  
   On Error Resume Next  
   xmatch = WorksheetFunction.Index(whatreturn, WorksheetFunction.Match(WorksheetFunction.Text(whatcell, 0), where, 0), 0)  
End Function{/post}{/quote}  
 
webley, Спасибо! Теперь идут 0 вместо ошибок :)

{quote}{login=nerv}{date=11.07.2011 02:27}{thema=}{post}а вот это зачем: If WorksheetFunction.IsError(xmatch = WorksheetFunction... ?{/post}{/quote}  
 
Проверяет на ошибку. Идея такая: если ошибка - то функцию не выполняем.    
Выше пример формулой простой, понятнее должно быть

{quote}{login=xen}{date=11.07.2011 02:20}{thema=Ползовательская функция ругается на пустые поля}{post}  
 
 
If WorksheetFunction.IsError(xmatch = WorksheetFunction.Index(whatreturn, WorksheetFunction.Match(WorksheetFunction.Text(whatcell, 0), where, 0), 0)) = {/post}{/quote}  
Тут хматч= не должно быть, да. Это просто один из вариантов пробовал и осталось.

Здравствуйте,  
Такая проблема, написал простенькую функцию, которая по сути объеденяет индекс, матч и текст, а если значение не находится, то ничего не возврашает.  
 
Но вот проблема - как ни пробовал, функция на пустые поля возвращатн #VALUE.  
 
Function xmatch(whatcell As Range, where As Range, whatreturn As Range)  
 
 
If WorksheetFunction.IsError(xmatch = WorksheetFunction.Index(whatreturn, WorksheetFunction.Match(WorksheetFunction.Text(whatcell, 0), where, 0), 0)) = True Then  
        xmatch = 0  
   Else  
       xmatch = WorksheetFunction.Index(whatreturn, WorksheetFunction.Match(WorksheetFunction.Text(whatcell, 0), where, 0), 0)  
End If  
 
 
End Function  
 
 
 
Что я сделал не так?

{quote}{login=Юрий М}{date=07.07.2011 09:57}{thema=}{post}Прикольно:    
в стартовом сообщении: "Очень раздражает, что при этом копируется формат во все ячейки"  
А затем: "Формат слетает, но это ладно,"{/post}{/quote}  
 
Ну я имел ввиду, что в ячейках ниже свой формат, а в ячейке выше свой. Вон он копируется везде и слетает всё ниже.

{quote}{login=vikttur}{date=07.07.2011 08:37}{thema=}{post}Можно только формулы:  
копировать ячейку с формулой, выделить диапазон, меню Правка-Спецвставка-Формулы-ОК.{/post}{/quote}  
Шикарно! А то я всё как в каменном веке в ручную делаю. Огромнейшее спасибо за будущие сэкономленные часы жизни =)

Добрый вечер. А существуют ли какие-нибудь ещё способы протянуть формулу в соседние ячейки, кроме взятия за маленький квадратик? Очень раздражает, что при этом копируется формат во все ячейки, и когда нужно протянуть через тысячи позиций эксель начинает крутить слишком быстро - в итоге проскакиваю конец, веду назад, опять проскакиваю... но вы понимаете =) Было бы удобнее что-то типо "зажать шифт и кликнуть на конечной". Но чтобы значения такие же относительные были?

Меню: Файл - Сохранить как - выбрать "Текст (MS DOS)(.txt)