Excel'deki bir sütundan benzersiz değerler nasıl silinir?
Çoğumuz genellikle bir sütundan yinelenen değerleri kaldırmak isteriz, ancak bazen sütunda yalnızca bir kez görünen benzersiz değerleri kaldırmak isteyebilirsiniz. Bu eğitici, benzersiz değerleri yalnızca Excel'deki bir sütundan kaldırmanızın püf noktalarından bahsediyor.
Excel'de VBA ile benzersiz değerleri silin
Kutools for Excel ile benzersiz değerleri silin
Excel'de VBA ile benzersiz değerleri silin
VBA kullanmak, tüm benzersiz değerleri bir sütundan hızlı bir şekilde silebilir.
1. Basın Alt + F11 görüntülemek için Uygulamalar için Microsoft Visual Basic pencere.
2. Pencerede tıklayın Ekle > modül yeni bir modül penceresi göstermek için, ardından aşağıdaki VBA kodunu modül penceresine kopyalayın.
VBA: Bir sütundan benzersiz değerleri silin.
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
4. tık OKve tüm benzersiz değerler silinir.
Kutools for Excel ile benzersiz değerleri silin
VBA'ya aşina değilseniz, Excel'deki benzersiz değerleri kaldırmak için Kutools for Excel'in Yinelenen ve Benzersiz Hücreleri Seç özelliğini kullanmayı düşünebilirsiniz.
Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın
1. Benzersiz değerleri silmek istediğiniz sütunu seçin ve tıklayın. Kutools > Araçlar'ı seçin > Yinelenen ve Benzersiz Hücreleri Seçin. Ekran görüntüsüne bakın:
2. Açılır iletişim kutusunda kontrol edin Yalnızca benzersiz değerler ve tıklayın Okve sonra bu iletişim kutusundan çıkın. Ekran görüntüsüne bakın:
3. Ardından tüm değerler yalnızca bir kez seçildiğinde görünür. Ve tıklamak için sağ tıklayın Sil bağlam menüsünde. Ekran görüntüsüne bakın:
4. içinde Sil iletişim kutusunda Tüm satırı işaretleyin ve tıklayın OK. Ekran görüntüsüne bakın:
Artık benzersiz değerlerin kaldırıldığını görebilirsiniz.
|
|
|
Bahşiş: Yalnızca hücre içeriğini kaldırmak istiyorsanız, İçeriği temizle 3. adımdaki bağlam menüsünden.
İlgili Makaleler:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
