Ponekad postaje rutinski posao kopirati podatke s više listova za isti stupac. Ovaj se korak može izbjeći automatizacijom. Ako želite napraviti konsolidirani list nakon kopiranja podataka iz stupca svakog lista u jedan list, trebali biste pročitati ovaj članak.
U ovom ćemo članku stvoriti makro za kopiranje podataka iz određenog stupca i zalijepiti u novi list.
Sirovi podaci za ovaj primjer sastoje se od podataka o zaposlenicima u obliku radne knjige programa Excel koja sadrži tri lista s podacima o odjelima, osobnim podacima i kontaktima zaposlenika.
Za kopiranje podataka s različitih listova u novi list stvorili smo makronaredbu "Kopiraj stupce". Ovu makronaredbu možete pokrenuti klikom na gumb "Pokreni makro" na listu "Glavni".
Makronaredba “CopyColumns” umetnut će novi list nazvan “Master” iza lista “Main”. “Glavni” list sadržavat će objedinjene podatke sa svih listova.
Objašnjenje koda
Radni listovi.Dodaj (poslije: = Radni listovi ("Glavni"))
Gornji kôd koristi se za umetanje novih radnih listova nakon radnog lista "Glavni".
Ako izvor.naziv "gospodar" i izvor.naziv "glavni" tada
Završi ako
Gornji kôd koristi se za ograničavanje kopiranja podataka s lista "Glavni" i "Glavni".
Source.UsedRange.Copy Destination.Columns (posljednji)
Gornji kôd koristi se za kopiranje podataka s izvornog lista na odredišni list.
Za svaki izvor u ovoj radnoj knjizi.Radni listovi
Ako je Source.Name = "Master" Tada
MsgBox "Glavni list već postoji"
Izlaz iz podv
Završi ako
Sljedeći
Gornji kôd koristi se za provjeru postoji li u radnoj knjizi "Glavni" list. Makronaredba će zaustaviti izvođenje ako list "Master" već postoji u radnoj knjizi.
Molimo slijedite dolje za kôd
Opcija Eksplicitna podkopijaKolumni () Zatamni izvor kao radni list Odredište zatamnjivanja Kao radni list zatamni kao zadnja Application.ScreenUpdating = False 'Provjerava postoji li list "Master" već u radnoj knjizi za svaki izvor u ThisWorkbook.Worksheets If Source.Name = "Master" Zatim MsgBox "Glavni list već postoji" Izlaz iz podzavršetka Ako je sljedeće "Umetanje novih radnih listova u radnu knjigu Postavi odredište = Radni listovi. Dodaj (nakon: = Radni listovi (" Glavni "))" Preimenovanje radnog lista Destination.Name = "Master" 'Ponavljanje kroz radne listove u radnoj knjizi Za svaki izvor u ovoj radnoj knjizi.Radni listovi Ako izvor.ime "Master" i izvor.naziv "glavni" zatim "Pronalaženje posljednjeg stupca s odredišnog lista Last = Destination.Range (" A1 "). SpecialCells ( xlCellTypeLastCell). Stupac If Last = 1 Then 'Zalijepljivanje podataka u odredišni list Source.UsedRange.Copy Destination.Columns (Last) Else Source.UsedRange.Copy Destination.Columns (Last + 1) End If End If Next Columns.AutoFit Application.ScreenUpdating = True End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte