Макрос / 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 за цей відгук на форумі.