Excel - andmete kopeerimine erinevatest lehtedest põhilehele
Probleem
Mul on vaja välja töötada makro, mis kogub töövihikus olevate lehtede hulgast andmeid.
Makromajandus peab:
- Kopeerige lehele "Kõik tähtajad" ja enne "Template" -lehele järgnevat lehte. Nii et kõik lehed, mis jäävad lehe "Kõik tähtajad" ja lehe "Mall" vahele.
- Ma vajan kõiki ridu, millel on vahemikus olevate lehtede 14. reas olevad andmed, kuid makro puhul ainult need read, mis sisaldavad andmeid
- Pärast käivitamist peaks makro kopeerima andmed lehele "Kõik tähtajad", kleepides esimest korda rida 3 ja kleepides andmed igast järgmisest lehest viimase eelmise kirje all.
- Kui käivitate, peaks makro kustutama kõik andmed reas 3 ja allpool lehel "Kõik tähtajad" (andmed, mis on kogutud eelmiste makro jooksvate perioodide kohta).
Lahendus
Reguleerige allolevat koodi vastavalt oma vajadustele:
Sub MoveData () Dim ws Nagu tööleht Dim lRow, dRow kui terviklikud lehed ("kõik tähtajad"). Read ("3: & vahemik (" A "ja read.Count) .End (xlUp) .Row). Iga ws lehel Kui ws.Name = "Loo uus projekt" _ või ws.Name = "Projekti juhtpaneel" _ või ws.Name = "Kõik tähtajad" _ või ws.Name = "Mall" Siis GoTo Nextws dRow = Lehed ( "Kõik tähtajad".) Vahemik ("A" ja read.Count) .End (xlUp) .Offset (1, 0) .Rida lRow = lehed (ws.Name) .Range ("A" ja read.Count). Lõpp (xlUp) .Realehted (ws.Name) .Rida ("14:" & lRow) .Koopiad lehed ("Kõik tähtajad"). Vahemik ("A" ja "dRow") Järgmised: Järgmised ws Lõpeta alam
Tänu TrowaDile selle näpunäite eest.