Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.02.2018, 01:43   #11
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Так - теперь таблица не обязана начинаться с первой строки, могут быть пустые строки сверху
Код:
Sub Ro()
  With Worksheets(2).UsedRange.Columns(1).Offset(, Worksheets(2).UsedRange.Columns.Count)
    .FormulaR1C1 = Replace(Replace( _
       "=IFERROR(LOOKUP(2,1/SEARCH('@'!R2C1:R#C1,RC2),'@'!R2C2:R#C2),"""")" _
      , "#", Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row) _
      , "@", Worksheets(3).Name)
    .Value = .Value
  End With
End Sub
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 09.02.2018, 02:05   #12
RockHammer
 
Регистрация: 04.02.2018
Сообщений: 7
По умолчанию

Цитата:
Сообщение от Казанский Посмотреть сообщение
Так - теперь таблица не обязана начинаться с первой строки, могут быть пустые строки сверху
Код:
Sub Ro()
  With Worksheets(2).UsedRange.Columns(1).Offset(, Worksheets(2).UsedRange.Columns.Count)
    .FormulaR1C1 = Replace(Replace( _
       "=IFERROR(LOOKUP(2,1/SEARCH('@'!R2C1:R#C1,RC2),'@'!R2C2:R#C2),"""")" _
      , "#", Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row) _
      , "@", Worksheets(3).Name)
    .Value = .Value
  End With
End Sub
Теперь работает как надо, спасибо огромное
RockHammer вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
при изменении значений объединенных ячеек в другой отображающей значения ячейке должны отображаться разные числа 1,2 и т.д, в зависимости от слов Alexsht Microsoft Office Excel 0 28.12.2017 00:00
формула в ячейке для подсчёта серий чисел из других ячееках Aleks 1978 Помощь студентам 0 02.01.2017 20:06
Копирование значений из других ячеек в одну Sergey19 Microsoft Office Excel 7 08.08.2013 13:02
MS Excel: Отмена объединения ячеек и заполнение "новых" ячеек текстом (числом), бывшим ранее в объединенной ячейке D.Sergienko Microsoft Office Excel 3 24.06.2013 15:18
Поиск одного из нескольких вариантов слов в заданной ячейке и перенос его вдругую ячейку ТвойПервый Microsoft Office Excel 19 06.03.2013 07:54