نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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


تبديل أو دمج البيانات من عمود واحد إلى خلية واحدة:

كوتولس ل إكسيل's دمج ميزة يمكن أن تساعدك بسرعة الجمع بين محتويات خلية متعددة في خلية واحدة واحدة كما تحتاج.

دوك تبديل الخلايا في خلية واحدة شنومكس

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!



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

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

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

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

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

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

دوك تبديل الخلايا في خلية واحدة شنومكس

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


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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

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

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

2. انقر Kutools > دمج، انظر الصورة:

دوك تبديل الخلايا في خلية واحدة شنومكس

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

دوك تبديل الخلايا في خلية واحدة شنومكس

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

دوك تبديل الخلايا في خلية واحدة شنومكس  2 دوك تبديل الخلايا في خلية واحدة شنومكس

تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!


كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
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.
  • To post as a guest, your comment is unpublished.
    Sophie · 1 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 · 1 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 · 1 years ago
    Thanks, this was very helpful.