Samenvoegen van kolommen met gegevens in Excel VBA-macro

Van toepassing: Microsoft Office Excel 2007Excel 2010Microsoft Office Excel 2003

Samenvatting


In Microsoft Excel, kunt u een macro om de gegevens in twee aangrenzende kolommen samen te voegen en het resultaat weergegeven in de kolom rechts van de kolommen die gegevens bevatten. Dit artikel bevat een voorbeeld van Microsoft Visual Basic for Applications (VBA)-macro (subprocedure) om dit te bereiken.

Meer informatie


Microsoft verstrekt programmeervoorbeelden uitsluitend ter illustratie, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeertaal die wordt aangetoond en met de hulpprogramma's die worden gebruikt bent voor het maken van en naar procedures voor foutopsporing. Ondersteuningstechnici van Microsoft kunnen voor uitleg over de functionaliteit van een bepaalde procedure. Zij zal deze voorbeelden bieden extra functionaliteit of desgewenst uw specifieke vereisten echter niet wijzigen.

Voorbeeld in Visual Basic for Applications (VBA)-macro

Sub ConcatColumns()

Do While ActiveCell <> "" 'Loops until the active cell is blank.

'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.

ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)

ActiveCell.Offset(1, 0).Select
Loop

End Sub
Opmerking: de instructie ActiveCell.Offset (0, 1). FormulaR1C1 kan worden vervangen door de instructie ActiveCell.Offset (0, 1). Formule. Ze kunnen worden gebruikt met succes gelijk als u tekst en cijfers (niet de formules). Het R1K1 gebruikt aan het einde van de eerste instructie verwijst naar rij 1, kolom 1 en wordt het formulier dat wordt gebruikt in de voorbeelden in de Help.

Het gebruik van de macro in Microsoft Office Excel 2007

  1. Open de werkmap die de gegevens bevat.
  2. Druk op ALT + F11 om de Visual Basic-Editor te starten.
  3. Klik op de Module om een module invoegen in het menu Invoegen . Typ de macro in het codevenster van de module.
  4. Klik in het menu bestand op sluiten en terugkeren naar Microsoft Excel.
  5. Selecteer het werkblad dat de gegevens bevat die u wilt samenvoegen.
  6. Klik op de bovenste cel in de kolom rechts van de gegevens die u wilt samenvoegen. Bijvoorbeeld, als de cellen a1: A100 en B1:B100 gegevens bevatten, klikt u op cel B1.
  7. Klik op het tabblad ontwikkelaars . Als het tabblad ontwikkelaars niet wordt weergegeven, gaat u als volgt te werk:
    1. Klik op de Microsoft Office-knop en klik vervolgens op Opties voor Excel.
    2. Klik op Populair.
    3. Schakel het selectievakje tabblad Ontwikkelaars op het lint weergeven in.
    4. Klik op OK om het dialoogvenster Opties voor Excel sluiten.
  8. Klik op macro's in de groep Code .
  9. Selecteer de macro ConcatColumns en klik vervolgens op uitvoeren.

Het gebruik van de macro in Microsoft Office Excel 2003 en in eerdere versies van Excel

  1. Open de werkmap die de gegevens bevat.
  2. Druk op ALT + F11 om de Visual Basic-Editor te starten.
  3. Klik op de Module om een module invoegen in het menu Invoegen . Typ de macro in het codevenster van de module.
  4. Klik in het menu bestand op sluiten en terugkeren naar Microsoft Excel.
  5. Selecteer het werkblad dat de gegevens bevat die u wilt samenvoegen.
  6. Klik op de bovenste cel in de kolom rechts van de gegevens die u wilt samenvoegen. Bijvoorbeeld, als de cellen a1: A100 en B1:B100 gegevens bevatten, klikt u op cel B1.
  7. Wijs macro'sin het menu Extra en klik vervolgens op Macro. Selecteer de macro ConcatColumns en klik vervolgens op uitvoeren.

Referenties


Voor meer informatie over Visual Basic for Applications, klikt u op het volgende artikel in de Microsoft Knowledge Base:

226118 lijst met bronnen die beschikbaar zijn om te helpen u meer informatie over Visual Basic for Applications programming