كيف تنقل البيانات من عمود إلى خلية واحدة في إكسيل؟
عندما تحتاج إلى نقل قائمة بيانات إلى خلية واحدة في ورقة عمل ، يمكنك عادةً تطبيق ملف سلسل وظيفة لدمج قائمة الخلايا في خلية واحدة ، ولكنها ستكون معقدة إذا كانت هناك بيانات ضخمة بحاجة إلى دمجها. في هذه المقالة سوف أتحدث عن بعض الحيل السريعة لك لحل هذه المهمة في 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) في خلية فارغة لوضع النتيجة ، واضغط على أدخل المفتاح ، ستحصل على جميع قيم الخلية الموجودة في عمود تم وضعها في خلية واحدة ، انظر الصورة:
ملاحظة: في الكود أعلاه ، A1: A10 هو نطاق القائمة الذي تريد تحويله إلى خلية واحدة ، ويمكنك أيضًا فصل المحتوى المدمج مع المحددات الأخرى ، مثل الفاصلة والشرطة والمسافة وما إلى ذلك ، بمجرد تغيير الفاصلة في البرنامج النصي xStr = xStr & xCell.Value & "،".
نقل البيانات من العمود إلى خلية واحدة مع كوتولس ل إكسس
إذا كان لديك كوتولس ل إكسيلبأداتها القوية-دمج، يمكنك دمج البيانات الموجودة في عمود أو صف أو نطاق في خلية واحدة.
كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30.
عرض توضيحي: قم بنقل البيانات من العمود إلى خلية واحدة باستخدام كوتولس فور إكسس
كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
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
