Excel - en makro for å kopiere data fra forskjellige ark

Utgave

Jeg prøver å kopiere data fra forskjellige ark til hovedarket under følgende kriterier

Hovedarket skal genereres når jeg driver en makro som sletter det forrige mesterarket.
Alle kolonneoverskriftene er identiske.
For hovedark bare en overskrift skal kopieres (dvs. første rad skal ikke kopieres fra det andre arket.)
Hvis nullverdier i en bestemt celle vises, må ikke denne rad kopieres.
Hovedarket skal sorteres som per kolonne jeg nevner i å kjøre makroen. (Dvs. jeg vil tildele meldingsboksen feltet / kolonnen som skal sorteres i hovedarket.)

Løsning

Jeg har en tvil om at du vil kopiere data for alle månedene til master ark OR for måned for måned. Jeg antok alle månedene. I så fall prøv denne makroen

 Sub-test () Dim j Så lenge, k Så lenge, r Som rekkevidde j = Arbeidsark. Antall med regneark ("master") Angi r = Range (.Range ("A2"), .Range ("A2"). (xlDown)) r.EntireRow.Delete End med For k = 1 til j Hvis regneark (k) .Name = "master" Så gå til feilhandler med regneark (k) Hvis .Range ("A2") = "" Så GoTo errorhandler Sett r = Range (.Range ("A2"), .Range ("A2"). End (xlDown)) r.EntireRow.Copy Worksheets ("master"). Celler (Rows.Count, "A"). (xlUp) .Offset (1, 0) .PasteSpecial End With Errorhandler: Neste k End Sub

I filen har du for mange tomme moduler. Fjern alle dem unntatt modul1.