Varat izmantot makro, lai kopētu datus no vienas Excel darblapas uz citu tās pašas darbgrāmatas lapu
Vai vēlaties pārsūtīt apgabala saturu no vienas darblapas uz citu? To ir viegli izdarīt ar Excel interaktīvo izmantošanu. Bet kā jūs veicat darbu ar makro? Izveidojiet cilpu, kas atkārto visas šūnas, kuras vēlaties kopēt. Makro izskatās šādi:
Apakškopijas apgabals ()
Dim Quelltab kā darblapa
Cilnes aptumšošana kā darblapa
Dim šūna kā diapazons
Dim skaitītājs tik ilgi
Skaitītājs = 1
Diapazons = "A1: A10"
Iestatīt avota cilni = ActiveWorkbook.Worksheets ("1. tabula")
Iestatīt mērķa cilni = ActiveWorkbook.Worksheets ("2. tabula")
Katrai šūnai SourceTab.Range ("A1: A10")
Mērķa tabula Šūnas (skaitītājs, 1) = šūna
Skaitītājs = skaitītājs + 1
Nākamā šūna
Beigt apakš
Mainīgā "Cilne Avots" definīcijā darbgrāmatā jānorāda avota tabulas nosaukums. Šī ir darblapa, no kuras vēlaties kopēt datus. Makro tas ir lapa "Table1".
Izmantojiet tagu "Mērķa cilne", lai definētu darblapas nosaukumu, kurā vēlaties kopēt datus.
Laukums A1: A10 tiek kopēts makro. Ja vēlaties izmantot citu apgabalu, attiecīgi pielāgojiet makro.
Jūs izmantojat tagu "Skaitītājs", lai kontrolētu rindu mērķa tabulā, kurā jāsāk šūnu ievietošana. Šūnās dati tiek kopēti viens zem otra
Lai ievadītu makro, programmā Excel nospiediet ALT F11, lai atvērtu VBA redaktoru. Izmantojiet komandu INSERT - MODULE, lai ievietotu tukšu moduļa lapu. Lai makro sāktu tieši no programmas Excel, izmantojiet taustiņu kombināciju ALT F8.
Kopējiet visu darblapu darbgrāmatā
Jums ir arī iespēja kopēt visu darblapu darbgrāmatā, izmantojot makro. Lai kopētu pašreizējās darbgrāmatas aktīvo lapu uz darbgrāmatas beigām, izmantojiet šādu makro:
Sub CopyActiveTable ()
ActiveSheet.Copy After: = Darblapas (Worksheets.Count)
Beigt apakš
Pēc makro palaišanas aktīvajai darbgrāmatai tiek pievienota darblapa. Šī ir darblapas kopija, kas bija aktīva, kad tika izsaukts makro. Lai atšķirtu abas darblapas viena no otras, Excel aiz kopētās darblapas izveido kārtas numuru. Nākamajā attēlā parādīts, kā tas izskatās tabulu reģistrā pēc darblapas "Pārdošana" nokopēšanas:
