İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Təkrarlanan satırları qaldırmaq və yalnız Excel-də ən yüksək dəyərləri saxlamaq necə?

Məsələn, ilk ekran görüntüsü olaraq Excel-də satınalma cədvəliniz var. İndi meyvə sütununa əsasən cüt sətirləri aradan qaldırmaq və göstərilən ikinci ekran görünüşü kimi Məbləğ sütununda müvafiq meyvələrin ən yüksək dəyərlərini saxlamaq lazımdır. Hər hansı bir həll düşünə bilərsiniz? Bu məqalədə onu həll etmək üçün iki məqalə paylaşılacaq.

Təkrarlanan satırları silin və yalnız VBA ilə ən yüksək qiymətləri saxlayın

Təkrarlanan satırları sil və yalnız Excel üçün Kutools ilə ən yüksək dəyərləri saxlaya bilərsiniz

Asanlıqla bir sütundakı meyarlara əsasən təkrarlanan satırları çıxarın və yalnız Excel-də ən yüksək dəyərləri saxlayır

Excel üçün Kutools Ətraflı qablar birləşdirin yardım proqramı Excel istifadəçilərinə tez bir sütunda hər bir elementin minimum dəyərinin maksimum dəyərini asanlıqla tapmağa kömək edə bilər. Tam xüsusiyyətli 60-sınaq sınaq!

irəli inkişaf etmiş birləşmə satırları max

Bu Ətraflı Kombinə Satırlar proqramı ayrıca satırları və ayrı qiymətləri qeyd olunan markalarla birləşdirə bilər və ya satırları birləşdirə və onların məbləğlərini, miqdarı, maksimum / minimum dəyərlər, orta və s. Hesablaya bilir.



Aşağıda göstərilən ekran görüntüsü kimi bir masanız olduğunu düşünürəm. Və bu üsul müəyyən bir sütuna əsaslanan təkrarlanan satırları aradan qaldırmaq və yalnız Excel-də başqa bir sütunda ən yüksək dəyərləri saxlamaq üçün VBA makrosunu təqdim edəcəkdir. Xahiş edirəm:

1. Basın Dayandırmaq + F11 Microsoft Visual Basic for Applications penceresini açmaq üçün eyni zamanda düymələri.

2. klik Taxmaq > Modules, və aşağıdakı kodu yeni açılış modulu pəncərəsinə yapışdırın.

VBA: Çoğaltılan satırları silin və ən yüksək qiymətləri saxlayın

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3. Basın F5 düyməsini basın və ya basın qaçış bu VBA'yı çalıştırmak üçün düyməsini basın.

4. İndi bir informasiya qutusu çıxır. Xahiş edirik çoğaltılan satırları kaldırdığınız sütunları seçin və ən yüksək değerleri ayırın və basın OK düyməsini basın.

Bizim vəziyyətimizdə, Meyvə Sütunu ilə cüt sətirləri aradan qaldıracağıq və Məbləğ Sütununda ən yüksək qiymətləri saxlayacağıq, buna görə də, meyvə sütunu və Məbləğ sütununu yuxarıda göstərilən ekran görüntüsü kimi seçəcəyəm.

Daha sonra cüt sütunlar Meyvə sütunu əsasında çıxarılır və müvafiq meyvələrin ən yüksək hədləri Məbləğ sütununda saxlanılır. Ekran görüntüsünə baxın:

Qeydlər:

(1) Göstərilən aralık təkrarlanan sətirləri silməklə başlamalıdır.

(2) Bu VBA yalnız satırların çoğaltıldığı sütunun arxasında sütundakı ən yüksək qiymətləri saxlaya bilər.

(3) Bu VBA Microsoft Excel 2007-da işləmir.


Yuxarıda göstərilən VBA bəzi istifadəçilər üçün kifayət qədər asan olmaya bilər və yalnız sütun meyarları sütununda arxada ən yüksək dəyərlər saxlaya bilər. Lakin Excel üçün Kutools Ətraflı qablar birləşdirin yardım asanlıqla bu problemi asanlıqla həll etməyə kömək edəcəkdir.

Excel üçün Kutools - Microsoft Excel üçün 300 Ətraflı funksiyaları və Alətlərdən daha çox birləşir

1. Çıxarılmış satırları çıxardığınız cədvəni seçin və ən yüksək dəyərləri saxlayırıq (bizim vəziyyətimizdə A1: C24 seçin) və Kutools > məzmun > Ətraflı qablar birləşdirin.

2. Açılışda Sütunlara əsaslanan birləşdirilmiş satırlar qutusunda aşağıdakı kimi konfiqurasiya edin:

(1) Meyvə sütununu seçin (cütlüyü satırları çıxaracaqsınız) və sonra basın İbtidai Key Düyməsinə;

(2) Məbləğ sütunu (ən yüksək dəyərləri saxlayacaqsınız) seçin və sonra basın Hesablayın > Max.

(3) Lazım olduğunuz digər sütunlar üçün birləşmə qaydalarını müəyyənləşdirin.

doc aradan qaldırılması cütlər ən yüksək dəyəri saxlamaq 2

3. Basın Ok düyməsini basın. Sonra bütün cüt sətirləri Meyvə Sütununa əsasən çıxarılır və müvafiq meyvələrin maksimum dəyərləri Məbləğ sütununda saxlanılır. Ekran görüntüsünə baxın:

The Ətraflı qablar birləşdirin Excel üçün Kutools xidmətinin sütunları asanlıqla bir sütunla birləşdirə və Sum, Count, Max, Min, Product və s. kimi bu sütunlara əsaslanan digər sütunları da hesablaya bilər. 60 gün pulsuz sınaq üçün tıklayın, heç bir məhdudiyyət yoxdur!


Bu videoda Kutools nişanı və Kutools Plus nişanı əlavə olunur Excel üçün Kutools. Lazım olsa, klikləyin burada məhdudiyyətsiz bir 60 günlük pulsuz sınaq üçün!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.