كيفية ضم النصوص في عمود دون التكرارات في Excel؟
هل تعرف كيفية ضم النصوص من عمود إلى خلية بدون تكرار في Excel؟ وماذا لو ضمّت نصوصًا في عمود بدون تكرارات بناءً على قيمة خلية محددة؟ توفر هذه المقالة طرقًا لحل المشكلات.
ضم النصوص في عمود بدون تكرارات مع الصيغة
ضم نصوصًا في عمود بدون نسخ مكررة بناءً على قيمة خلية أخرى برمز VBA
يمكنك بسهولة ضم النصوص في عمود بناءً على قيمة خلية أخرى باستخدام أداة مذهلة
المزيد من البرامج التعليمية لدمج الخلايا ...
ضم النصوص في عمود بدون تكرارات مع الصيغة
كما هو موضح في لقطة الشاشة أدناه ، فأنت تريد ضم النصوص الموجودة في العمود A في خلية واحدة بدون تكرار. الرجاء القيام بما يلي.
1. حدد خلية فارغة ، وانسخ الصيغة أدناه فيها واضغط على قديم + تغير + أدخل مفاتيح في نفس الوقت.
=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))
ملحوظة: في الصيغة ، ", ”هو فاصل النصوص المدمجة ؛ A2: A12 هي خلايا العمود التي ستجمعها معًا. الرجاء تغييرها كما تريد.
يتم الآن ضم النصوص الموجودة في العمود المحدد بدون تكرارات.
ضم نصوصًا في عمود بدون نسخ مكررة بناءً على قيمة خلية أخرى برمز VBA
في بعض الأحيان ، قد تحتاج إلى ضم نصوص في عمود بدون نسخ مكررة بناءً على القيمة الموجودة في خلية أخرى ، كما هو موضح أدناه ، يمكنك تنزيلها على النحو التالي.
1. في ورقة العمل تحتوي على النصوص التي ستنضم إليها ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة كود الوحدة النمطية.
كود فبا: ضم النصوص في عمود دون التكرارات بناءً على قيمة خلية أخرى
Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
Dim xRg As Range
Dim xArr As Variant
Dim xCell As Range
Dim xTxt As String
Dim I As Long
Dim xDic As Object
Dim xValue
Dim xStr, xStrValue As String
Dim xB As Boolean
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Does not support multiple selections", , "Kutools for Excel"
Exit Sub
End If
If xRg.Columns.Count <> 2 Then
MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
Exit Sub
End If
xArr = xRg
Set xDic = CreateObject("Scripting.Dictionary")
xDic.CompareMode = 1
For I = 1 To UBound(xArr)
If Not xDic.Exists(xArr(I, 1)) Then
xDic.Item(xArr(I, 1)) = xDic.Count + 1
xArr(xDic.Count, 1) = xArr(I, 1)
xArr(xDic.Count, 2) = xArr(I, 2)
Else
xStrValue = xArr(I, 2)
xB = True
For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
If xStr = xStrValue Then
xB = False
Exit For
End If
Next
If xB Then
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود. في ظهرت كوتولس ل إكسيل في مربع الحوار ، حدد النطاق بما في ذلك القيم التي ستنضم إليها والنصوص التي ستنضم إليها ، ثم انقر فوق OK .
ثم يتم استخراج القيم الفريدة ويتم ضم النصوص الفريدة المقابلة لها في عمود آخر ووضعها في ورقة عمل جديدة.
يمكنك بسهولة ضم النصوص في عمود بناءً على قيمة خلية أخرى باستخدام أداة مذهلة
قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.
ملحوظة: نظرًا لأن الأداة ستطبق مباشرة في النطاق الأصلي ، يرجى عمل نسخة من البيانات الأصلية قبل تطبيق العملية أدناه.
1. حدد النطاق (بما في ذلك النصوص التي ستنضم إليها والقيمة التي ستنضم إليها بناءً على النصوص) ، انقر كوتولس > وصف المنتج > الجمع بين الصفوف المتقدمة. انظر لقطة الشاشة:
2. في ال الجمع بين الصفوف المتقدمة الحوار ، يرجى القيام بما يلي:
- حدد العمود الذي يحتوي على القيم التي ستجمع النصوص بناءً عليها ، وانقر فوق المفتاح الأساسي;
- حدد العمود الذي يحتوي على النصوص التي ستضمها في خلية ، وانقر فوق دمج > فاصلة؛
- إذا كانت هناك أعمدة متبقية ، فيرجى تحديد شروط لها. في هذه الحالة ، أحدد عمود المبيعات وحدد احسب الشحن > مجموع.
- انقر على OK زر. انظر لقطة الشاشة:
ثم يمكنك رؤية جميع النصوص الموجودة في العمود المحدد مرتبطة بناءً على عمود المفتاح. انظر لقطة الشاشة:
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
مقالات ذات صلة
اجمع بين الصفوف المكررة وجمع القيم في Excel
في Excel ، قد تواجه دائمًا هذه المشكلة ، عندما يكون لديك نطاق من البيانات يحتوي على بعض الإدخالات المكررة ، والآن تريد دمج البيانات المكررة وجمع القيم المقابلة في عمود آخر ، كيف يمكنك حل هذه المشكلة؟ جرب الطرق في هذه المقالة.
ادمج عدة خلايا في خلية مع مسافة أو فواصل أو فواصل أخرى في إكسيل
عند دمج الخلايا من عدة أعمدة أو صفوف في خلية واحدة ، قد يتم فصل البيانات المجمعة بلا شيء. ولكن إذا كنت تريد الفصل بينها بعلامات محددة ، مثل مسافة أو فاصلة أو فاصلة منقوطة أو غيرها ، كيف يمكنك أن تفعل؟ سيقدم لك هذا البرنامج التعليمي بعض الطرق.
تسلسل الخلايا مع الاحتفاظ بتنسيق الأرقام / التاريخ في Excel
ربما لاحظت أنه عندما نطبق دالة CONCATENATE في Excel ، فإن تنسيق التاريخ (2014-01-03) وتنسيق الأرقام مثل تنسيق العملة (734.7 دولارًا أمريكيًا) وتنسيق النسبة المئوية (48.9٪) والمنازل العشرية (24.5000) وما إلى ذلك. تتم إزالتها وإظهارها كأرقام عامة في نتائج التسلسل. في هذه المقالة توصلنا إلى العديد من الحلول لسلسلة البيانات مع الاحتفاظ بتنسيق التاريخ أو الأرقام في Excel.
اعكس وظيفة التسلسل في Excel
كما نعلم جميعًا ، يمكن أن تساعدنا وظيفة Concatenate في Excel على دمج عدة خلايا في خلية واحدة ، ولكن في بعض الأحيان ، تريد أن تفعل عكس وظيفة Concatenate ، فهذا يعني عدم دمج الخلايا ، ولكن تقسيم قيمة الخلية إلى عدة خلايا منفصلة. الأساليب في هذه المقالة ستساعد في حل المشكلة.
ربط الخلايا في حالة وجود نفس القيمة في عمود آخر في Excel
توفر هذه المقالة طرقًا لمساعدتك في تجميع الخلايا بسهولة إذا كانت نفس القيمة موجودة في عمود آخر في Excel.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!