كيف يمكن ربط النصوص في عمود دون تكرارها في Excel؟

عند التعامل مع القوائم أو مجموعات البيانات الكبيرة في Excel، قد تحتاج غالبًا إلى دمج محتويات النصوص من عمودٍ بأكمله في خلية واحدة—مع التأكد من ظهور كل القيم المكررة مرة واحدة فقط. وقد تواجه أيضًا حالات تتطلب ربط النصوص في عمود واحد بناءً على قيمة معيّنة في عمود آخر، مع إزالة التكرارات في الوقت نفسه. إن إتقان هذه الطرق يُعدّ أمرًا بالغ الفائدة لتنظيف البيانات، وتلخيصها، وإعداد التقارير بفعالية، مما يساعدك على الحفاظ على أوراق العمل منظمة وواضحة. ويستعرض هذا المقال عدة طرق عملية لتحقيق هذه الأهداف، مع تقديم إرشادات تفصيلية خطوة بخطوة لتغطية مختلف السيناريوهات الشائعة.

ربط النصوص في عمود دون تكرار باستخدام صيغة
ربط النصوص في عمود دون تكرار استنادًا إلى قيمة خلية أخرى باستخدام كود VBA
ربط النصوص في عمود استنادًا إلى قيمة خلية أخرى بسهولة باستخدام أداة رائعة
مزيد من الدروس التعليمية لدمج الخلايا…

ربط النصوص في عمود دون تكرار باستخدام صيغة

افترض أن لديك عمودًا من القيم النصية في ورقة العمل وترغب في دمجها في خلية واحدة مع إزالة أي إدخالات مكررة، كما يظهر في لقطة الشاشة أدناه. تُعد هذه الطريقة مثالية لإنشاء حقول ملخّصة أو قوائم فريدة مفصولة بفواصل لتقاريرك ولوحات معلوماتك. والأفضل من ذلك، أنها لا تتطلب استخدام ماكرو أو أدوات خارجية، وتتوافق مع معظم إصدارات Excel التي تدعم دوال المصفوفات الديناميكية ودالة TEXTJOIN.

حدد الخلية الفارغة التي تريد أن يظهر فيها النص المدمج. انسخ الصيغة أدناه والصقها في الخلية المحددة، ثم اضغط علىCtrl+Shift+Enter إذا كنت تستخدم إصدارات Excel القديمة. أما في الإصدارات الأحدث التي تدعم المصفوفات الديناميكية (مثل Excel 365 أو Excel 2019 فما بعدها)، فما عليك سوى الضغط علىEnter:

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12,0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, «»))

شرح المعلمات وملاحظات الاستخدام:

• A2:A12: يُحدِّد هذا النطاق الخلايا التي ترغب في دمج قيمها. غيّر هذا النطاق حسب احتياجاتك ليتوافق مع بياناتك.
• ", ": هذا هو الفاصل المستخدم بين النصوص المدمجة (في هذا المثال، فاصلة متبوعة بمسافة). ولتغيير الفاصل إلى فاصلة منقوطة أو سطر جديد، ما عليك سوى تعديل هذا المعامل.
• TRUE: يشير هذا الإعداد إلى أن دالة TEXTJOIN تتجاهل الخلايا الفارغة.

بعد إكمال هذه الخطوات، ستحصل على خلية واحدة تحتوي على جميع القيم النصية الفريدة من العمود المحدد، مدمجةً معًا باستخدام الفاصل الذي حددته.

ربط النصوص في عمود دون تكرار استنادًا إلى قيمة خلية أخرى باستخدام كود VBA

ثمة حالات ترغب فيها في دمج النصوص من عمود واحد استنادًا إلى القيم الفريدة لعمود آخر—مثل سرد جميع المشاريع المخصصة لعضو فريق معين، أو المواضيع التي جرى تغطيتها في كل جلسة، دون تكرار أي نص. قد تكون دوال Excel المضمنة محدودة أو معقّدة لأداء هذه المهام، خاصةً مع تزايد حجم البيانات. ويُعدّ VBA حلاً مرِنًا لأتمتة هذه العملية، حتى في السيناريوهات التي تتطلب دمج عدد كبير من الصفوف ضمن مجموعات مع تجاهل التكرارات. ويتيح لك الحل التالي المكتوب بلغة VBA إنجاز ذلك بسرعة وتصدير النتائج إلى ورقة عمل جديدة، مع الحفاظ على سلامة البيانات الأصلية لأغراض الأمان والمراجعة.

1. في ورقة العمل التي تحتوي على النصوص التي ترغب في دمجها، انقر علىAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذة Visual Basic، انقر علىإدراج>وحدةلإنشاء وحدة جديدة، ثم الصق الكود التالي في نافذة كود الوحدة:

كود 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. بعد ظهور مربع الحوار (العنوان: Kutools لـ Excel)، حدد النطاق الذي يحتوي على عمود التجميع والنصوص المراد ربطها. يجب أن يتكون النطاق من عمودين (على سبيل المثال، العمود الأول يحتوي على التصنيف، والعمود الثاني يحتوي على القيم النصية المرتبطة). ثم انقر علىموافقلتأكيد اختيارك والمتابعة.

بمجرد اكتمال الكود، ستجد أن ورقة عمل جديدة قد تمت إضافته إلى مصنفك. هنا، يتم سرد القيم الفريدة من العمود الرئيسي الخاص بك، وبجانب كل منها يتم ربط النصوص المقابلة من عمودك الأصلي—مع ظهور كل قيمة مرة واحدة فقط. تكون هذه الطريقة فعّالة بشكل خاص لتلخيص البيانات المجمّعة، مثل جمع تعليقات العملاء حسب المنتج، أو سرد المشاريع حسب المدير، وغير ذلك.

ربط النصوص في عمود استنادًا إلى قيمة خلية أخرى بسهولة باستخدام أداة رائعة

تسمح لك هذه الطريقة بتكوين عمليات التلخيص والدمج تفاعليًّا حسب الحاجة، مما يجعلها الخيار المثالي للمستخدمين الذين يعملون غالبًا مع مجموعات بيانات متغيرة أو يحتاجون إلى تنفيذ العملية مرارًا بمعلمات مختلفة.

ملاحظة:نظرًا لأن هذه الأداة تُعدِّل نطاق التحديد الخاص بك مباشرةً، يُوصى بشدة بعمل نسخة احتياطية من بيانات ورقة العمل الأصلية قبل تنفيذ عملية الدمج، لتجنب فقدان البيانات العرضي أو الكتابة فوق المعلومات المهمة.

1. حدد نطاق الخلايا الذي يشمل القيم التي تريد الدمج بناءً عليها والنصوص المراد دمجها. بعد ذلك، انتقل إلى علامة التبويبKutools، وانقر علىدمج وتقسيم، ثم اختردمج متقدم للصفوفمن قائمة الخيارات المنسدلة.

2. في مربع الحواردمج متقدم للصفوفالذي يظهر:

• اختر العمود الذي يحدد كيفية تجميع نصوصك، ثم انقر علىالمفتاح الأساسي. وعادةً ما يكون هذا العمود مُعرِّفًا أو عمود تصنيف.
• حدد العمود الذي يحتوي على النصوص التي ترغب في دمجها، ثم انقر علىدمج > فاصلة (أو اختر الفاصل الذي تفضله).
• إذا كانت هناك أعمدة إضافية، مثل القيم الرقمية أو السمات الأخرى، يمكنك تحديد العمليات الخاصة بها (مثل جمع المجاميع أو حساب المتوسطات) باختيار الدالة المناسبة، مثلحسابأوجمع.
• انقر علىموافقلتنفيذ العملية، وسيتم دمج البيانات وفقًا لذلك. راجع لقطة الشاشة التالية لمثال توضيحي:

بعد اكتمال العملية، ستجد أن جميع القيم النصية في العمود المحدد قد تم دمجها تلقائيًا وفقًا لتجميع العمود الرئيسي الذي اخترته. وتُعد هذه الطريقة مثالية للمستخدمين الذين يبحثون عن حل سريع وقابل للتكرار دون الحاجة إلى حفظ الصيغ.

مقالات ذات صلة

أفضل أدوات الإنتاجية لمكتبتك

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...