Hur man extraherar data från flera kalkylblad

Att extrahera data från ett Excel-kalkylblad omvandlar innehållet i arkens celler till variabler. Arbetsboken kan sedan klistra in värdena i ett nytt ark, exportera dem till ett dokument eller utföra beräkningar på dem. Till exempel kan en arbetsbok innehålla en serie lakan, var och en täcker en period av ditt företags försäljning. Ett Visual Basic-makro kan öppna varje ark i sin tur och kopiera en specifik cells innehåll och sammanställa en lista över försäljningsuppgifter från varje ark.

1.

Tryck på "Alt-F11" för att öppna Excels Visual Basic-redigerare.

2.

Skriv följande kod för att öppna ett makroblock:

Sub mcrExtractData ()

3.

Lägg till följande rad för att skapa en uppsättning värden:

Dim extraheradValue (1 till 10) så länge

Byt "1" och "10" med första och sista arken vars data du vill extrahera. Till exempel, för att extrahera data från ark 3 till 12, använd linjen:

Dim extraheradValue (3 till 12) så länge

4.

Lägg till följande rad för att deklarera en variabel som makrons slinga kommer att använda:

Dimma jag som heltal

5.

Lägg till följande rad för att öppna en For-Next-loop:

För i = 1 till 10

Byt "1" och "10" med första och sista arken vars data du vill extrahera. Till exempel, för att extrahera data från ark 3 till 12, använd linjen:

För i = 3 till 12

6.

Lägg till följande rad för att aktivera det första arket:

Arket (i) .Activate

7.

Lägg till följande rad för att extrahera data från det första arket:

extraheradValue (i) = Område ("C1"). Värde

Byt "C1" med cellen vars data du vill extrahera. Till exempel, för att extrahera värdet av cell E10, använd linjen:

extraheradValue (i) = Område ("E10"). Värde

8.

Lägg till följande rad för att stänga För-Nästa-slingan:

Nästa jag

9.

Lägg till följande rad för att avsluta makroet:

Slutdel

10.

Tryck på "F5" knappen för att köra makro.