Hogyan lehet egyedi értékeket törölni az Excel oszlopából?
Általában a legtöbben el akarjuk távolítani az ismétlődő értékeket egy oszlopból, de néha érdemes eltávolítani azokat az egyedi értékeket, amelyek csak egyszer jelennek meg az oszlopban. Ez az oktatóanyag azokról a trükkökről szól, amelyekkel egyedi értékeket csak az Excel egyik oszlopából távolíthat el.
Törölje a nem korlátozott értékeket az VBA használatával az Excelben
Törölje a nem megfelelő értékeket a Kutools for Excel segítségével
Törölje a nem korlátozott értékeket az VBA használatával az Excelben
A VBA használatával gyorsan törölhet minden egyedi értéket egy oszlopból.
1. nyomja meg Alt + F11 megjeleníteni a Microsoft Visual Basic for Applications ablak.
2. Az ablakban kattintson a gombra betétlap > Modulok új modulablak megjelenítéséhez, majd másolja a következő VBA kódot a modulablakba.
VBA: Töröljön egyedi értékeket egy oszlopból.
Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
xValue = Arr(i, 1)
Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
xValue = Dic(xKey)
If xValue > 1 Then
For i = 1 To xValue
Arr(xIndex, 1) = xKey
xIndex = xIndex + 1
Next
End If
Next
WorkRng.Value = Arr
End Sub
3. kettyenés futás gombot a VBA kód futtatásához, és a KutoolsforExcel megjelenik a párbeszédpanel a működési tartomány kiválasztásához. Lásd a képernyőképet:
4. kettyenés OK, és az összes egyedi értéket törli.
Törölje a nem megfelelő értékeket a Kutools for Excel segítségével
Ha nem ismeri a VBA-t, fontolja meg a Kutools for Excel Select Duplicate & Unique Cells funkciójának használatát az egyedi értékek eltávolításához az Excelben.
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. Jelölje ki azt az oszlopot, amelyből törölni szeretné az egyedi értékeket, majd kattintson a gombra Kutools > Válassza az Eszközök lehetőséget > Válassza az Ismétlődő és egyedi cellák lehetőséget. Lásd a képernyőképet:
2. Az előugró párbeszédpanelen ellenőrizze Csak egyedi értékek és kattintson Ok, majd lépjen ki erről a párbeszédpanelről. Lásd a képernyőképet:
3. Ezután minden érték megjelenik, csak egyszer választotta ki. Kattintson a jobb gombbal a kattintáshoz töröl a helyi menüben. Lásd a képernyőképet:
4. Ban,-ben töröl párbeszédpanelen jelölje be az Egész sort, majd kattintson a gombra OK. Lásd a képernyőképet:
Most láthatja, hogy az egyedi értékeket eltávolították.
típus: Ha csak a cella tartalmát akarja eltávolítani, kattintson a gombra Tartalom törlése a helyi menüből a 3. lépésben.
Ide kattintva többet tudhat meg az Ismétlődő és egyedi cellák kiválasztásáról.
Relatív cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!