Sammendrag
I Microsoft Excel kan du bruke en makro til å kjede sammen dataene i to tilstøtende kolonner og vise resultatet i kolonnen til høyre for kolonnene som inneholder dataene. Denne artikkelen inneholder et eksempel på en Microsoft Visual Basic for Applications (VBA)-makro (Sub-prosedyre) for å oppnå dette.
Mer informasjon
Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet til et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre. De vil imidlertid ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav.
Eksempelmakro Visual Basic for Applications (VBA)
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
OBS! Uttrykket ActiveCell.Offset(0, 1). FormulaR1C1 kan erstattes med setningen ActiveCell.Offset(0, 1). Formel. De kan brukes med lik suksess hvis du bare bruker tekst og tall (ikke formler). R1C1 som brukes på slutten av den første setningen, refererer til rad én, kolonne én og er skjemaet som brukes i eksempler i Hjelp.
Slik bruker du makroen i Microsoft Office Excel 2007
-
Åpne arbeidsboken som inneholder dataene.
-
Trykk ALT+F11 for å starte Visual Basic Editor.
-
Klikk Modul på Sett inn-menyen for å sette inn en modul. Skriv inn makroen i modulens kodevindu.
-
Klikk Lukk og gå tilbake til Microsoft Excel på Fil-menyen.
-
Merk regnearket som inneholder dataene du vil kjede sammen.
-
Klikk den øverste cellen i den høyre kolonnen med data som du vil kjede sammen. Hvis for eksempel cellene A1:A100 og B1:B100 inneholder data, klikker du celle B1.
-
Klikk Utvikler-fanen . Hvis Utvikler-fanen ikke vises, følger du disse trinnene:
-
Klikk Microsoft Office-knappen, og klikk deretter Alternativer for Excel.
-
Klikk Populær.
-
Klikk for å merke av for Vis utviklerfanen på båndet .
-
Klikk OK for å lukke dialogboksen Alternativer for Excel .
-
-
Klikk Makroer i Kode-gruppen .
-
Velg ConcatColumns-makroen, og klikk deretter Kjør.
Slik bruker du makroen i Microsoft Office Excel 2003 og i tidligere versjoner av Excel
-
Åpne arbeidsboken som inneholder dataene.
-
Trykk ALT+F11 for å starte Visual Basic Editor.
-
Klikk Modul på Sett inn-menyen for å sette inn en modul. Skriv inn makroen i modulens kodevindu.
-
Klikk Lukk og gå tilbake til Microsoft Excel på Fil-menyen.
-
Merk regnearket som inneholder dataene du vil kjede sammen.
-
Klikk den øverste cellen i den høyre kolonnen med data som du vil kjede sammen. Hvis for eksempel cellene A1:A100 og B1:B100 inneholder data, klikker du celle B1.
-
Pek på Makroer på Verktøy-menyen, og klikk deretter Makro. Velg ConcatColumns-makroen, og klikk deretter Kjør.
