Hogyan készítsünk listát az Excel tartományából?

Előfordulhat, hogy gyakran létre kell hoznia egy listát egy adatsor alapján, például 24 szolártermet tartalmazó adatsort, az alábbiak szerint. Természetesen manuálisan másolhatja és beillesztheti őket egy listába, de kissé unalmasnak tűnik, ha sok oszlop van a tartományban. Valójában van néhány trükk, amellyel könnyen létrehozhat egy listát a megadott tartományból a Microsoft Excel programban.

Készítsen listát a tartományból a VBA segítségével

Hozzon létre listát a tartományból a Kutools for Excel segítségével

Készítsen listát a tartományból a VBA segítségével

Az Excelben a VBA kódot is használhatja a lista vagy a tartomány gyors importálásához.

1. Tartsa ALT gombot és nyomja meg a gombot F11 a billentyűzeten a Microsoft Visual Basic alkalmazásokhoz ablak.

2. kettyenés betétlap > Modulok, és másolja a VBA-t a modulba.

VBA: Lista létrehozása a tartományból

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. kettyenés futás vagy nyomja meg a gombot F5 hogy működtesse a VBA-t. A képernyőn megjelenő párbeszédpanelen válassza ki azt az adattartományt, amellyel listát hoz létre. Lásd a képernyőképet:

5. kettyenés OK, válasszon egy cellát a lista megjelenítéséhez az előugró párbeszédpanelen, majd kattintson a gombra OK. Lásd a képernyőképet:

Ezután az adattartomány listaként jött létre a kiválasztott cellában.

Hozzon létre listát a tartományból a Kutools for Excel segítségével

A praktikus eszköz - Kutools az Excel számára's Átalakítási tartomány funkció segítségével gyorsan és egyszerűen létrehozhat egy listát egy tartomány adatairól.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most

1. Válassza ki listaként a létrehozni kívánt adattartományt, majd kattintson a gombra Kutools > Választék > Átalakítási tartomány. Lásd a képernyőképet:

2. A felugró ablakban Átalakítási tartomány párbeszédpanelen ellenőrizze Tartomány egyetlen oszlopig, és kattintson a gombra OK, megjelenik egy másik párbeszédpanel, amelyen kiválaszthat egy üres cellát a lista megjelenítéséhez, kattintson a gombra OK. Lásd a képernyőképet:

3. Ezután létrejön a lista.

Kattintson ide további információkért a Transform Ranges-ről.