Excel - makro datu kopēšanai no dažādām lapām

Izdevums

Es cenšos kopēt datus no dažādām lapām uz galveno lapu saskaņā ar šādiem kritērijiem

Galvenā lapa jāizveido ikreiz, kad palaižu makro, kas dzēš iepriekšējo galveno lapu.
Visas sleju virsraksti ir identiski.
Galvenajai lapai ir jākopē tikai viena virsraksts (ti, pirmo rindu nevajadzētu kopēt no otrās lapas.)
Ja konkrētajā šūnā parādās nulles vērtības, tad šī rinda nav jākopē.
Maģistra lapa ir sakārtota atbilstoši kolonnai, kurā es minēju makro darbībā. (Proti, ziņojuma lodziņā piešķiršu lauku / kolonnu, kas jāšķiro galvenajā lapā.)

Risinājums

Man ir šaubas, ka vēlaties kopēt datus par visiem mēnešiem uz galveno lapu vai mēnesi pēc mēneša. Es pieņemu visus mēnešus. Šādā gadījumā izmēģiniet šo makro

 Sub tests () Dim j Kā garš, k As Long, r As Range j = Darblapas.Skaitīšana ar darblapām ("master") Set r = Range (.Range ("A2"), .Range ("A2"). (xlDown)) r.EntireRow.Delete Beigt ar k = 1 To j Ja darblapas (k) .Name = "master" Tad GoTo errorhandler Ar darblapām (k) Ja .Range ("A2") = "" Tad GoTo errorhandler Iestatiet r = Range (.Range ("A2"), .Range ("A2"). Beigas (xlDown)) r.EntireRow.Copy darblapas ("master"). Šūnas (rindas.Skaitlis, "A"). (xlUp) .Offset (1, 0) .PasteSpecial beigas ar kļūdas pārvaldnieku: Nākamais k Beigas beigas

Jūsu failā ir pārāk daudz tukšu moduļu. Noņemiet visus no tiem, izņemot moduli1.