Макро / 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 за този съвет на форума.

Предишна Статия Следваща Статия

Топ Съвети