Hvordan oprettes en liste fra rækkevidde i Excel?
Det kan være nødvendigt at oprette en liste efter en række data ofte, for eksempel en række data på 24 soltermer som vist nedenfor. Selvfølgelig kan du kopiere og indsætte dem på en liste manuelt, men det virker lidt kedeligt, hvis der er mange kolonner i området. Der er faktisk et par tricks til nemt at oprette en liste fra det angivne interval i Microsoft Excel.
Opret liste fra rækkevidde med VBA
Opret liste fra rækkevidde med Kutools til Excel
Opret liste fra rækkevidde med VBA
I Excel kan du også bruge VBA-kode til hurtigt at importere en liste eller et interval.
1. Holde ALT og tryk på F11 på tastaturet for at åbne en Microsoft Visual Basic til anvendelse vindue.
2. klik indsatte > Moduler, og kopier VBA til modulet.
VBA: Opret liste fra rækkevidde
Sub UniqueList()
'Updateby20140304
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range:", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("OutPut to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value
Set OutRng = OutRng.Offset(1, 0)
Next
Next
End Sub
3. klik Kør knappen eller tryk på F5 at køre VBA. En dialogboks vises på skærmen, og vælg det dataområde, som du vil oprette en liste med. Se skærmbillede:
5. klik OK, vælg en celle, der skal udføres fra pop op-dialogboksen, og klik derefter på OK. Se skærmbillede:
Derefter er dataområdet oprettet som en liste i den valgte celle.
Opret liste fra rækkevidde med Kutools til Excel
Det praktiske værktøj - Kutools til Excel's Transformér rækkevidde funktion kan også hurtigt og nemt oprette en liste ud fra en række data.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu
1. Vælg det dataområde, du vil oprette det som en liste, og klik på Kutools > Områdeomformer > Transformér rækkevidde. Se skærmbillede:
2. I pop op-vinduet Transformér rækkevidde dialog, tjek Område til enkelt kolonne, og klik OK, vises en anden dialogboks, hvor du kan vælge en tom celle, der skal sendes til listen, skal du klikke på OK. Se skærmbillede:
3. Derefter oprettes listen.