Gegevens uit meerdere spreadsheets extraheren

Het extraheren van gegevens uit een Excel-werkblad converteert de inhoud van de cellen van de vellen naar variabelen. De werkmap kan vervolgens de waarden in een nieuw blad plakken, deze naar een document exporteren of er berekeningen op uitvoeren. Een werkmap kan bijvoorbeeld een reeks werkbladen bevatten die elk een periode van de verkoop van uw bedrijf beslaan. Een Visual Basic-macro kan elk blad om beurten openen en de inhoud van een specifieke cel kopiëren en een lijst met verkooptotalen uit elk blad samenstellen.

1.

Druk op "Alt-F11" om de Visual Basic-editor van Excel te openen.

2.

Typ de volgende code om een ​​macroblok te openen:

Sub mcrExtractData ()

3.

Voeg de volgende regel toe om een ​​reeks waarden te maken:

Dim uitgepaktWaarde (1 tot 10) als lang

Vervang "1" en "10" door de eerste en laatste vellen waarvan u de gegevens wilt extraheren. Gebruik bijvoorbeeld de regel om gegevens uit de bladen 3 tot 12 te extraheren:

Dim uitgehaalde Waarde (3 tot 12) als lang

4.

Voeg de volgende regel toe om een ​​variabele te declareren die de macro-lus zal gebruiken:

Dim i als Integer

5.

Voeg de volgende regel toe om een ​​For-Next-lus te openen:

Voor i = 1 tot 10

Vervang "1" en "10" door de eerste en laatste vellen waarvan u de gegevens wilt extraheren. Gebruik bijvoorbeeld de regel om gegevens uit de bladen 3 tot 12 te extraheren:

Voor i = 3 tot 12

6.

Voeg de volgende regel toe om het eerste blad te activeren:

Sheet (i) .Activate

7.

Voeg de volgende regel toe om gegevens uit het eerste blad te extraheren:

extractionValue (i) = Bereik ("C1"). Waarde

Vervang "C1" door de cel waarvan u de gegevens wilt extraheren. Gebruik bijvoorbeeld de regel om de waarde van cel E10 te extraheren:

extractionValue (i) = Bereik ("E10"). Waarde

8.

Voeg de volgende regel toe om de For-Next-lus te sluiten:

Volgende ik

9.

Voeg de volgende regel toe om de macro te beëindigen:

End Sub

10.

Druk op de "F5" -toets om de macro uit te voeren.