Как да изтрия уникални стойности от колона в Excel?
Обикновено повечето от нас искат да премахнат дублирани стойности от колона, но понякога може да искате да премахнете уникалните стойности, които се появяват само веднъж в колоната. Този урок говори за триковете за премахване на уникални стойности само от колона в Excel.
Изтрийте unqiue стойности с VBA в Excel
Изтрийте unqiue стойности с Kutools за Excel
Изтрийте unqiue стойности с VBA в Excel
Използването на VBA може бързо да изтрие всички уникални стойности от една колона.
1. Натиснете Alt + F11 за показване на Microsoft Visual Basic за приложения прозорец.
2. В прозореца щракнете Поставете > Модули за да покажете нов прозорец на модула, след това копирайте следния VBA код в прозореца на модула.
VBA: Изтриване на уникални стойности от колона.
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. кликване бягане бутон за изпълнение на VBA кода и a Kutools за Excel изскача диалогов прозорец за избор на диапазон за работа. Вижте екранна снимка:
4. кликване OKи всички уникални стойности се изтриват.
Изтрийте unqiue стойности с Kutools за Excel
Ако не сте запознати с VBA, можете да обмислите използването на Kutools за Excel Избор на дублирани и уникални клетки функция за премахване на уникалните стойности в Excel.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега
1. Изберете колоната, от която искате да изтриете уникалните стойности, и щракнете Kutools > Изберете Инструменти > Изберете Дублирани и уникални клетки. Вижте екранна снимка:
2. В изскачащия диалогов прозорец поставете отметка Само уникални стойности и кликнете Okи след това излезте от този диалогов прозорец. Вижте екранна снимка:
3. Тогава всички стойности се появяват само веднъж, когато са избрани. И щракнете с десния бутон, за да щракнете Изтрий в контекстното меню. Вижте екранна снимка:
4. В Изтрий диалоговия прозорец, поставете отметка върху Целия ред и щракнете OK. Вижте екранна снимка:
Сега можете да видите, че уникалните стойности са премахнати.
тип: Ако просто искате да премахнете съдържанието на клетката, можете да щракнете Изчистване на съдържанието от контекстното меню в стъпка 3.
Можете да щракнете тук, за да научите повече за Избор на дублирани и уникални клетки.
Относителни статии:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!