Екцел - Копирање ако је задовољен опсег услова

Питање

Желим да копирам податке из листа у други ако је опсег уноса задовољен на другом листу

• Сви моји подаци су у листу под називом "инсерт" ред, Г схеет "инсерт" има имена људи
• У називу листа "Дом" распон Б4: б17 има листу имена тог тима
• Ако имена наведена у Домовом листу који се појављују у "инсерт" листу, желим да се тај ред копира у ред 75 и изнад у Домовом листу

Решење

"Ров, Г схеет" уметнути "има имена људи"

Г не може бити ред само колона претпостављајући да у г ступцу морам да направим узорак

Инсерт схеет ће изгледати овако из колоне А до Х

цол.Г цол Х

 име података а 1 с 2 д 3 ф 4 г 5 х 6 

Дом ће бити овакав

 цол Б ред4 адгквриузцбмнп 

Написао сам макро покретање макроа и видио да ли је то оно што желите. Било би корисније да сте дали мали извадак од уметнутих листова. Ако желите и можете модификовати макро тако да одговара вашим подацима.

БОЉЕ СПАСИТЕ ОРИГИНАЛНУ ДАТОТЕКУ СИГУРНО НЕКОЛИКО ЗА РЕТРИЕВАЛ АКО НЕШТО НЕСТАЈЕ.

 Суб тест () Дим цфинд Ас Ранге, ц Ас Ранге, к Ас Стринг, дест Ас Ранге, ј Ас Лонг ј = 1 Са радним листовима ("дом") За сваки ц Ин .Ранге ("Б4: Б17") к = ц УсеРанге Сет цфинд = .Целлс.Финд (што: = к, лоокат: = клВхоле) Ако није цфинд је ништа онда цфинд.ЕнтиреРов.Цопи Крај са .Ранге ("А75"). Оффсет (ј, 0) .ПастеСпециал ј = ј + 1 Следећи ц Заврши са крајом Суб суб ундо () Са радним листовима ("дом") Распон (.Ранге ("А75"), .Целлс (Ровс.Цоунт, "А") ЕнтиреРов.Делете Енд Енд Енд Суб 

Хвала Венкату за овај тип.