Makro / VBA je potreben za iskanje, ujemanje, kopiranje / lepljenje

• Težava
• Rešitev
• Opomba

Težava

Ok, tako da sem iskal in iskal in še vedno nisem našel kode za to, kar potrebujem.

Makro mora imeti možnost iskanja hundrendov celic v istem stolpcu (sheet1) in če se celica v tem stolpcu ujema s prvo celico v drugem delovnem listu (Sheet2), potem makro prilepi naslednje celice (iz iste vrstice na listu2). ) na listu1 (ista vrstica, vendar različni stolpec).

Torej sem v bistvu poskušal izločiti delo ujemanja besedila iz dveh različnih delovnih listov in kopirati in prilepiti povezane podatke v isto vrstico.

Ta makro sem našel kot standardni modul (ne vem, kako koristen je, ampak bi lahko bil izhodišče).

Možnost Eksplicitna

Podvodna kopija ()

Dim celica As Range

Dim rw As Long

Za vsako celico v listih ("PTR"). Razpon ("A: A"). Celice

Če je celica "" Potem

rw = Iskanje (cell.Value)

Če rw 0 Nato

Celice (celica.Row, "L") Spreminjanje velikosti (, 4) .Value = _

Celice (rw, "L") Spreminjanje velikosti (, 4).

End If

End If

Naslednji

End Sub

Iskanje funkcij (element kot niz) kot dolg

Napaka nadaljuje Naprej

Iskanje = WorksheetFunction.Match (postavka, Delovni listi ("Reference"). Razpon ("A: A"),

False)

Na napaki GoTo 0

Končna funkcija

Rešitev

To lahko storite brez makroja

Spodnjo formulo v B1 vstavimo v list 2

 = vlookup ($ A1, CELLREF-SHEET1, stolpec (), false) 

Sintaksa je VLOOKUP (lookup_value, table_array, col_index_num, range_lookup)

Opomba

Hvala za Excelguru za ta nasvet na forumu.