VBA-makro for å sette sammen kolonner med data i Excel

Gjelder: Microsoft Office Excel 2007Excel 2010Microsoft Office Excel 2003

Sammendrag


I Microsoft Excel, kan du bruke en makro til å sette sammen data i to tilstøtende kolonner og vise resultatet i kolonnen til høyre for kolonnene som inneholder dataene. Denne artikkelen inneholder et eksempel Microsoft Visual Basic for Applications (VBA)-makro (Sub-prosedyre) å oppnå dette.

Hvis du vil ha mer informasjon


Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre. De endrer imidlertid ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov.

Eksempel på VisualBasic for Applications (VBA)-makro

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
Merknad: den ActiveCell.Offset (0, 1)-setningen. FormulaR1C1 kan bli erstattet med ActiveCell.Offset (0, 1)-setningen. Formelen. De kan brukes med like vellykket hvis du bruker tekst og tall bare (ikke formler). R1C1 brukes på slutten av den første setningen refererer til raden én kolonne, og er brukt i eksempler i Hjelp for skjemaet.

Slik bruker du makroen i Microsoft Office Excel 2007

  1. Åpne arbeidsboken som inneholder dataene.
  2. Trykk ALT + F11 for å starte Visual Basic-redigering.
  3. Klikk modulen for å sette inn en modul på Sett inn -menyen. Skriv inn makroen i kodevinduet i modulen.
  4. fil -menyen, klikker du Lukk og gå tilbake til Microsoft Excel.
  5. Merk regnearket som inneholder dataene du vil sette sammen.
  6. Klikk cellen øverst i høyre kolonne med data som du vil slå sammen. Hvis cellene a1: A100 og B1:B100 inneholder data, klikk celle B1.
  7. Klikk kategorien utvikler . Hvis kategorien utvikler ikke vises, gjør du følgende:
    1. Klikk Microsoft Office-knappen, og klikk deretter Alternativer for Excel.
    2. Klikk Populær.
    3. Klikk for å merke av for Vis kategorien Utvikler på båndet .
    4. Klikk OK for å lukke dialogboksen Alternativer for Excel .
  8. Klikk makroer i kode -gruppen.
  9. Merk makroen ConcatColumns, og klikk deretter Kjør.

Slik bruker du makroen i Microsoft Office Excel 2003 og i tidligere versjoner av Excel

  1. Åpne arbeidsboken som inneholder dataene.
  2. Trykk ALT + F11 for å starte Visual Basic-redigering.
  3. Klikk modulen for å sette inn en modul på Sett inn -menyen. Skriv inn makroen i kodevinduet i modulen.
  4. fil -menyen, klikker du Lukk og gå tilbake til Microsoft Excel.
  5. Merk regnearket som inneholder dataene du vil sette sammen.
  6. Klikk cellen øverst i høyre kolonne med data som du vil slå sammen. Hvis cellene a1: A100 og B1:B100 inneholder data, klikk celle B1.
  7. Velg makroVerktøy -menyen, og klikk deretter makro. Merk makroen ConcatColumns, og klikk deretter Kjør.

Referanser


Hvis du vil ha mer informasjon om Visual Basic for Applications, kan du klikke følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:

226118 liste over ressurser som er tilgjengelige for å hjelpe deg med å lære Visual Basic for Applications programming