Excel - en makro til kopiering af data fra forskellige ark

Problem

Jeg forsøger at kopiere data fra forskellige ark til master ark under følgende kriterier

  • Masterarket skal genereres, når jeg kører en makro, der sletter det foregående masterark.
  • Alle kolonneoverskrifter er ens.
  • For masterkortet skal kun en overskrift kopieres (dvs. første række skal ikke kopieres fra andet ark.)
  • Hvis der vises nulværdier i en bestemt celle, skal den pågældende række ikke kopieres.
  • Hovedarket skal sorteres som pr. Kolonne, der nævnes i kørslen af ​​makroen. (Dvs. jeg vil tildele meddelelsesboksen feltet / kolonnen, der skal sorteres i masterarket.)

Opløsning

Jeg har en tvivl om, at du vil kopiere data for alle måneder til master ark OR for måned for måned. Jeg antog alle måneder. Prøv i så fald denne makro

 Sub test () Dim j Så lang, k Så lang, r Som rækkevidde j = Worksheets.Count Med regneark ("master") Indstil r = Range (.Range ("A2"), .Range ("A2"). (xlDown)) r.EntireRow.Delete End Med For k = 1 Til j Hvis Worksheets (k) .Name = "master" Så Gør fejlhandler med regneark (k) Hvis .Range ("A2") = "" Så goTo fejlhandler Indstil r = Range (.Range ("A2"), .Range ("A2"). Slut (xlDown)) r.EntireRow.Copy Worksheets ("master"). Celler (Rows.Count, "A"). (xlUp) .Offset (1, 0) .PasteSpecial End med fejlhåndterer: Næste k Slutpunkt 

I din fil har du for mange tomme moduler. Fjern dem alle undtagen module1.

Noter det

Løst af venkat1926

Forrige Artikel Næste Artikel

Top Tips