İ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

Satırları eyni ID / adla Excel-də necə birləşdirmək olar?

Məsələn, ekran görüntüsünün aşağıda göstərildiyi kimi bir masanız var və satırları sifariş kimlikleri, hər hansı bir fikir ilə birləşdirməlisiniz? Burada, bu məqalə sizin üçün iki həlli təqdim edəcək.

Asanlıqla satırları birləşdirin və Excel-də başqa sütundakı dəyərlərə görə hesablayın

Excel üçün Kutools Ətraflı qablar birləşdirin yardım proqramı, anohter sütununda dəyərlərə əsaslanan satırları birləşdirməyə və eyni zamanda cəmi, sayını, orta və s. birləşdirməyə kömək edə bilər! Tam xüsusiyyətli 60-sınaq sınaq!
irəli inkişaf etmiş bir sıra satır 1



VBA tərəfindən eyni ID / adı ilə satırları birləşdirin

Bu metod, müəyyən bir seçmədə eyni şəxsiyyət və ya adı ilə bütün satırları tez birləşdirmək üçün bir VBA təqdim edəcək. Xahiş edirəm:

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

2. Basın Taxmaq > Modulessonra VBA kodunu Modul pəncərəsinə yapışdırın.

VBA: Satırları Excel-də eyni ID / adı ilə birləşdirin

Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
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. Excel qutusu üçün Kutools qutusunu açmaq üçün, birləşdirəcək satırları seçin və basın OK düyməsini basın. Ekran görüntüsünə baxın:

İndi göstərilən sıra içərisində olan satırlar eyni ID tərəfindən vergüllə birləşdirilir. Ekran görüntüsünə baxın:

Qeyd: Bu VBA yalnız satırları ilk sütundakı dəyərlər ilə birləşdirə bilər. Məsələn, eyni adı ilə satırları birləşdirmək istəyiriksə, adı sütunu göstərilən aralığın ilk sütununa köçürməlisiniz.


Excel üçün Kutools tərəfindən eyni ID / adı ilə satırları birləşdirin

Yüklü Excel üçün Kutools varsa, onun tətbiq edə bilərsiniz Ətraflı qablar birləşdirin xüsusiyyətləri müəyyən bir sıra içində eyni şəxsiyyət və ya adlarla tez birləşdirmək xüsusiyyətidir.

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

1. Birləşdirəcək satırları seçin və vurun Kutools > məzmun > Ətraflı qablar birləşdirin. Ekran görüntüsünə baxın:

2. Ətraflı Birləşmə Satırları informasiya qutusunda, birləşdirəcək şəxsiyyət və ya adı sütunu seçin, klikləyin İbtidai Keylazım olduğunuzda digər sütunlar üçün birləşmə qaydaları müəyyənləşdirin.

Mənim vəziyyətimdə, (1) Mən seçirəm Sifariş ID sütun və basın İbtidai Key; (2) seçin tarix sütun və basın Hesablayın > Saymaq; (3) seçin Satıcı sütun və basın Birləşdirmək > vergül; (4) seçin Məbləği sütun və basın Hesablayın > Məbləğ. Ekran görüntüsünə baxın:

3. Tıklayınız OK düyməsini basın.
İndi seçilmiş satırlar sifariş kimliyinə əsasən birləşdirilmişdir. Ekran görüntüsünə baxın:


Related articles:



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.