Excel - makro za kopiranje podatkov iz različnih listov

Težava

Poskušam kopirati podatke iz različnih listov v glavni list po naslednjih merilih

  • Glavni list bi moral biti izdelan vsakič, ko z makroom izbrišem prejšnji glavni list.
  • Vsi naslovi stolpcev so identični.
  • Za glavni list je treba kopirati samo en naslov (tj. Prva vrstica se ne sme kopirati iz drugega lista.)
  • Če se v določeni celici pojavijo ničelne vrednosti, se ta vrstica ne kopira.
  • Glavni list je treba razvrstiti glede na stolpec, ki ga omenjam pri izvajanju makra. (Tj. V polju za sporočila bom dodelil polje / stolpec, ki naj bo razvrščen v glavni list.)

Rešitev

Dvomim, da želite kopirati podatke za vse mesece, da boste obvladali liste ALI za mesec po mesec. Prevzel sem vse mesece. V tem primeru poskusite ta makro

 Sub test () Dim j Kot Long, k As Long, r As Range j = Delovni listi.Count With Worksheets ("master") Set r = Range (.Range ("A2"), .Range ("A2"). End (xlDown)) r.EntireRow.Delete End With Za k = 1 To j Če delovni listi (k) .Name = "master" Potem GoTo errorhandler z delovnimi listi (k) If. Nastavi r = Razpon (.Range ("A2"), .Range ("A2"). End (xlDown)) r.EntireRow.Copy Worksheets ("master") Celice (Rows.Count, "A"). (xlUp) .Offset (1, 0) .PasteSpecial End z errorhandler: Next k End Sub 

V vaši datoteki imate preveč praznih modulov. Odstranite vse, razen modula1.

Upoštevajte, da

Rešeno z venkat1926

Prejšnji Članek Naslednji Članek

Top Nasveti