Макрос / VBA, необхідний для пошуку, відповідності, копіювання / вставки

  • Проблема
  • Рішення
  • Примітка

Проблема

Добре, так що я шукав і шукав і до цих пір не знайшли код, щоб зробити саме те, що мені потрібно.

Макрос повинен мати можливість пошуку hundrends клітин в одному стовпці (sheet1), і якщо клітина в цьому стовпці відповідає першій клітині в іншому аркуші (Sheet2), то макрос вставляє наступні клітинки (з одного рядка на аркуші2 ) на аркуші1 (той же рядок, але інший стовпець).

Так що я в основному намагаюся вирізати роботу з відповідності тексту з двох різних робочих аркушів і копіювати і вставляти пов'язані дані в один ряд.

Я знайшов цей макрос як стандартний модуль (не знаю, наскільки це корисно, але може бути відправною точкою).

Опція Явна

Sub CopyData ()

Неясна клітина As Range

Дим rw як довгий

Для кожної клітини в робочих листах ("PTR"). Діапазон ("A: A")

Якщо клітинка "" потім

rw = Пошук (cell.Value)

Якщо rw 0 Тоді

Клітинки (cell.Row, "L") Змінити розмір (, 4) .Value = _

Клітинки (rw, "L") .Розмір (, 4).

End If

End If

Далі

End Sub

Пошук функцій (елемент As String) як довгий

На помилку відновити далі

Lookup = WorksheetFunction.Match (елемент, робочі листи ("Довідка"). Діапазон ("A: A"),

Помилковий)

На помилку GoTo 0

Функція End

Рішення

Ви можете зробити це без макросу

Покладіть нижче формулу у B1 у аркуші 2

 = vlookup ($ A1, CELLREF-SHEET1, стовпець (), false) 

Синтаксис - VLOOKUP (lookup_value, table_array, col_index_num, range_lookup)

Примітка

Завдяки Excelguru за цей відгук на форумі.

Попередня Стаття Наступна Стаття

Кращі Поради