Note: The other languages of the website are Google-translated. Back to English

كيف تنقل البيانات من عمود إلى خلية واحدة في إكسيل؟

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

نقل البيانات من عمود إلى خلية واحدة باستخدام وظيفة محددة بواسطة المستخدم

تحويل البيانات من عمود إلى خلية واحدة مع كوتولس ل إكسيل


باستثناء وظيفة Concatenate لدمج قائمة بقيم الخلايا ، يمكنك تطبيق رمز VBA التالي للحصول على النتيجة بأسرع ما يمكن.

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: نقل البيانات من العمود إلى خلية واحدة

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. ثم احفظ هذا الرمز وأغلقه ، وارجع إلى ورقة العمل ، وأدخل هذه الصيغة: = transposerange (A1: A10) في خلية فارغة لوضع النتيجة ، واضغط على أدخل المفتاح ، ستحصل على جميع قيم الخلية الموجودة في عمود تم وضعها في خلية واحدة ، انظر الصورة:

doc نقل الخلايا إلى خلية واحدة 1

ملاحظة: في الكود أعلاه ، A1: A10 هو نطاق القائمة الذي تريد تحويله إلى خلية واحدة ، ويمكنك أيضًا فصل المحتوى المدمج مع المحددات الأخرى ، مثل الفاصلة والشرطة والمسافة وما إلى ذلك ، بمجرد تغيير الفاصلة في البرنامج النصي xStr = xStr & xCell.Value & "،".


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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن! )

1. حدد عمود البيانات الذي تريد دمجه في خلية واحدة.

2. انقر كوتولس > دمج وتقسيمادمج الصفوف أو الأعمدة أو الخلايا دون فقد البيانات، انظر لقطة الشاشة:

3. في مربع الحوار المنبثق ، حدد اجمع في خلية واحدة تحت لدمج الخلايا المحددة وفقًا للخيارات التالية، ثم حدد فاصلًا لفصل المحتوى المدمج ، انظر الصورة:

doc نقل الخلايا إلى خلية واحدة 3

4. ثم اضغط Ok or قم بالمشاركة زر ، وستحصل على النتيجة التالية حسب حاجتك:

doc نقل الخلايا إلى خلية واحدة 4 2 doc نقل الخلايا إلى خلية واحدة 5

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (6)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا، هذا كان مفيدا للغاية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

شكرًا جزيلاً! أنا أستخدم وظيفتك التالية وهي تعمل بشكل جيد للغاية. أود تضمين وظيفة "إذا" في Transposerange. ما الذي يجب علي إضافته إلى الوظيفة في VBA؟ في الأساس ، سيعمل مثل كونتيف. لذلك نقرأ الصيغة = transposerangeif (النطاق ، المعايير).

ويرجع الفضل في ذلك مسبقا!

وظيفة تبديل النطاق (Rg كنطاق)
'تحديث بواسطة Extendoffice 20151207
خافت xCell كمجموعة
خافت xStr كسلسلة
لكل xCell في Rg
If Not IsEmpty (xCell.Value) ثم
xStr = xStr & xCell.Value & "،"
إنهاء حالة
التالى
TransposeRange = يسار (xStr ، Len (xStr) - 1)
نهاية وظيفة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا صوفي
هل يمكنك إعطاء مثال على حاجتك ، يمكنك إدراج لقطة شاشة هنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد كان هذا مفيدًا للغاية بالنسبة لي عدة مرات. شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعرف أي شخص كيفية إضافة قاعدة شرطية إلى هذه الوظيفة؟ في الأساس لدي دليل بريد إلكتروني للعديد من الشركات. يوجد عمود أدرجت فيه إما نعم أو لا ردًا على ما إذا كان البريد الإلكتروني هو جهة الاتصال الرئيسية للشركة. آمل تعديل الرمز بحيث يتم سحب جهات الاتصال الرئيسية وإدراجها في خلية واحدة فقط. لذلك ، سيكون الشرط أن يسرد عمود جهة الاتصال الرئيسية "نعم". لقد حاولت استخدام عبارات if لكنني جديد تمامًا على كل هذا. أي مساعدة سيكون محل تقدير كبير!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا صديق،
سعيد للمساعدة. يرجى قراءة هذا المقال: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. أعتقد أنه يمكن أن يحل مشكلتك. طاب يومك.

مع خالص الشكر والتقدير،
ماندي
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL