Макро / VBA, необходими за намиране, съвпадение, копиране / поставяне
- Проблем
- Решение
- Забележка
Проблем
Добре, така че аз съм търсил и търси и все още не съм намерил код, за да направя точно това, което ми трябва.
Макросът трябва да може да търси hundrends на клетки в една и съща колона (sheet1) и ако клетка в тази колона съвпада с първата клетка в друг работен лист (Sheet2), тогава макрос поставя следните клетки (от същия ред на лист2). ) на лист1 (същия ред, но различна колона).
Така че основно се опитвам да отрежа работата по съвпадение на текст от два различни работни листа и копиране и поставяне на съответните данни в един и същи ред.
Намерих този макрос като стандартен модул (не съм сигурен колко е полезен, но може да бъде отправна точка).
Опция Изрично
Sub CopyData ()
Димни клетки като обхват
Дълбоко
За всяка клетка в работни листове ("PTR"). Диапазон ("A: A"). Клетки
Ако е клетка "" тогава
rw = Търсене (cell.Value)
Ако rw 0 Тогава
Работни листове ("PTR"). Клетки (клетка.Row, "L"). Resize (, 4) .Value = _
Клетки (rw, "L") Преоразмеряване (, 4).
Край Ако
Край Ако
Следващия
Край Под
Търсене на функция (елемент като низ) Долу
При грешка възобнови следващата
Търсене = WorksheetFunction.Match (елемент, работни листове ("Справочник"). Обхват ("A: A"),
False)
При грешка GoTo 0
Крайна функция
Решение
Можете да го направите без макрос
Поставете следната формула в B1 в лист 2
= VLOOKUP ($ А1, CELLREF-Sheet1, колона (), фалшива)
Синтаксисът е VLOOKUP (lookup_value, table_array, col_index_num, range_lookup)
Забележка
Благодарение на Excelguru за този съвет на форума.