„Excel“ - kopijuokite duomenis iš įvairių lapų į pagrindinį lapą

Problema

Turiu sukurti makrokomandą, kuri rinktų duomenis iš įvairių darbo knygelės lapų.

Makro reikia:

• Nukopijuokite įvairių lapų duomenis po lapo, vadinamo „Visi terminai“, ir prieš lapą „Šablonas“. Taigi, visi lapai tarp lapo „Visi terminai“ ir lapo „Šablonas“.
• Noriu, kad visos eilutės, kuriose yra duomenų iš jų 14 eilutėje, yra tose eilutėse, kuriose yra diapazone esančių lapų, bet makrokomandai tik nukopijuojamos eilutės, kuriose yra duomenų
• Paleidus makrokomandą duomenys turi būti nukopijuoti į lapą „Visi terminai“, pirmą kartą įklijuojant 3 eilutę ir įklijuodami duomenis iš kiekvieno paskesnio lapo po paskutiniu ankstesniu įrašu.
• Kai vykdoma, makro turėtų ištrinti visus duomenis iš 3 eilutės ir žemiau lape „Visi terminai“ (duomenys, surinkti iš ankstesnių makro darbų).

Sprendimas

Sureguliuokite toliau pateiktą kodą, kad jis atitiktų jūsų reikalavimus:

 „Sub MoveData“ () „Dim ws“ kaip darbų lapas „Dim lRow“, „DRow As Integer Sheets“ („Visi terminai“). Eilutės („3:“ ir intervalas („A“ ir eilutės.Kaina) .Pasirinkti (xlUp). Kiekvienas ws į lapus Jei ws.Name = "Sukurti naują projektą" _ arba ws.Name = "Projekto valdymo skydelis" _ arba ws.Name = "Visi terminai" _ arba ws.Name = "Šablonas" Tada GoTo Nextws dRow = Lapai ( „Visi terminai“.) Diapazonas („A“ ir „eilutės“) .Pasirinkta (xlUp). „Oset“ (1, 0). „LRow“ = „lapai“ („W“ pavadinimas) .Range („A“ ir „eilutės“). Pabaiga (xlUp). Eilės („W.Name“). Eilės („14:“ ir „perrūksta“). Kopijavimo lapai („Visi terminai“). Diapazonas („A“ ir „vėlesnė“) Nextws: Kitas ws Pabaiga 

Ačiū TrowaD už šį patarimą.