Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
حساب جديد  \/ 
x

or

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

عندما تحتاج إلى نقل قائمة بيانات إلى خلية واحدة في ورقة عمل ، يمكنك عادةً تطبيق ملف سلسل وظيفة لدمج قائمة الخلايا في خلية واحدة ، ولكنها ستكون معقدة إذا كانت هناك بيانات ضخمة بحاجة إلى دمجها. في هذه المقالة سوف أتحدث عن بعض الحيل السريعة لك لحل هذه المهمة في 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-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sophie · 3 years ago
    Hi,

    Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

    Thanks in advance!

    Function transposeRange(Rg As Range)
    'updateby Extendoffice 20151207
    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
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      Hello,Sophie,
      Could you give an example for your need, you can insert a screenshot here.
  • To post as a guest, your comment is unpublished.
    Eric · 3 years ago
    Thanks, this was very helpful.