انتقل إلى المحتوى الرئيسي

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

عندما تحتاج إلى نقل قائمة بيانات إلى خلية واحدة في ورقة عمل ، يمكنك عادةً تطبيق ملف سلسل وظيفة لدمج قائمة الخلايا في خلية واحدة ، ولكنها ستكون معقدة إذا كانت هناك بيانات ضخمة بحاجة إلى دمجها. في هذه المقالة سوف أتحدث عن بعض الحيل السريعة لك لحل هذه المهمة في 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would anybody know how to add a conditional rule to this function? Basically I have an e-mail directory for multiple businesses. There is a column where I list either Yes or No in response to whether the E-mail is the business' main contact. I am hoping adjust the code so that only the main contacts are pulled and listed in one cell. Therefore, the condition would be that the Main Contact Column lists Yes. I have tried using if statements but I am fairly new to all of this. Any help would be much appreciated!
This comment was minimized by the moderator on the site
Hello friend,
Glad to help. Please read this article: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. I believe it can solve your problem. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
This has been ridiculously helpful to me a number of times. Thank you so much!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Hello,Sophie,
Could you give an example for your need, you can insert a screenshot here.
This comment was minimized by the moderator on the site
Thanks, this was very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations