كيف يمكن تقسيم قيم الخلايا عموديًا في Excel؟
عند العمل في Excel، قد تصادف خلية واحدة تحتوي على قيم متعددة ضمن صف واحد أو عدة صفوف، وتحتاج إلى تحويلها إلى قائمة عمودية — وهو أمرٌ مفيدٌ للغاية عندما تكون البيانات مخزَّنة أفقيًّا لكنك تحتاج إلى معالجتها أو تحليلها بتنسيق عمودي.
سيغطي هذا الدليل ثلاث طرق فعالة لتحويل قيم الخلايا عموديًا:
تقسيم قيم الخلايا إلى صفوف عموديًا في Excel
- استخدام صيغة (Excel 365)– الأنسب للتحويلات الديناميكية والتلقائية
- استخدام Kutools لـ Excel– حل سريع وسهل باستخدام أداة متخصصة لجميع إصدارات Excel
- استخدام كود VBA– مثالي لأتمتة العملية لجميع إصدارات Excel
تقسيم قيم الخلايا إلى صفوف عموديًا باستخدام صيغة (Excel 365)
إذا كنت تستخدم Excel 365، يمكنك بسهولة تحويل قيم الخلايا عموديًا دون أي جهد يدوي باستخدام دوال TEXTSPLIT وTEXTJOIN وTRANSPOSE.
يرجى نسخ ولصق الصيغة التالية في خلية فارغة، ثم اضغط مفتاح «Enter»، وسيقوم Excel تلقائيًا بإدخال البيانات في عدة صفوف، راجع لقطة الشاشة:
=TRANSPOSE(TEXTSPLIT(TEXTJOIN(";", TRUE, A1:A4), ";"))
- TEXTJOIN("؛"، TRUE، A1:A4): تدمج النصوص الموجودة في الخلايا من A1 إلى A4 في سلسلة واحدة، مفصولة بفواصل منقوطة (؛).
- TEXTSPLIT(...): تُعيد تقسيم السلسلة المدمجة إلى قيم منفصلة باستخدام الفاصلة المنقوطة كمحدد فاصل.
- TRANSPOSE(...): حوّل القائمة العمودية الناتجة من القيم إلى صف أفقي (أو العكس، حسب اتجاهها الأصلي).
✅المزايا:
- ✔ تحديثات ديناميكية: عند تغيُّر البيانات الأصلية، تُحدِّث الصيغة النتائج تلقائيًا.
- ✔ لا حاجة لأي جهد يدوي: يلغي الحاجة إلى التقسيم اليدوي المتكرر.
- ✔ محددات فاصلة قابلة للتخصيص: استبدل الفاصلة المنقوطة (؛) بأي محدد فاصل آخر—مثل الفاصلة أو المسافة—ليتناسب مع بياناتك.
❌العيوب:
- ✘ متوفر حصريًا في Excel 365 ولا يعمل مع الإصدارات الأقدم من Excel.
تقسيم قيم الخلايا إلى صفوف عموديًا باستخدام Kutools لـ Excel
إذا كنت تستخدم Excel 2019 أو إصدارًا أقدم، جرّب «Kutools لـ Excel»—وهو برنامج إضافي قوي يوفّر أدوات متخصصة لتحويل البيانات وإدارتها بسلاسة. باستخدام ميزة «تقسيم إلى عدة أسطر»، يمكنك تحويل قيم الخلايا عموديًا بسهولة وفقًا لأي فاصل تحدده.
بعد تثبيت «Kutools لـ Excel»، يرجى اتباع الخطوات التالية:
- انقر «Kutools» > «دمج وتقسيم» > «تقسيم إلى عدة أسطر»، راجع لقطة الشاشة:
- في مربع الحوار «تقسيم إلى عدة أسطر»، حدّد العمليات التالية:
- حدد الخلايا التي تريد تقسيمها؛
- في قسم «المحدد الفاصل»، حدد المحدد الذي يُستخدم لتقسيم محتوى الخلية. هنا، سأختار «فاصلة منقوطة».
- وأخيرًا، انقر على زر «موافق».
النتيجة: سيتم تحويل البيانات إلى عمودٍ عمودي.
✅المزايا:
- ✔ يعمل في جميع إصدارات Excel (2010، 2013، 2016، 2019، 2021، 365)
- ✔ لا حاجة إلى صيغ معقدة أو برمجة.
- ✔ يدعم مجموعة واسعة من المحددات الفاصلة.
- ✔ يوفّر Kutools أكثر من 300 أداة لمعالجة البيانات، لتوفير وقتك في إنجاز مهامك الأخرى.
❌العيوب:
- ✘ يتطلب تثبيت Kutools
تقسيم قيم الخلايا إلى صفوف عموديًا باستخدام كود VBA
للمستخدمين المتقدمين، يُعدّ VBA حلاً قويًا لأتمتة تقسيم قيم الخلايا عموديًا، حيث يمكّنك الكود أدناه من فصل محتويات الخلايا إلى صفوف بسهولة باستخدام أي فاصل مخصص تريده.
1. اضغط مع الاستمرار على مفتاحَي «ALT» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».
2. انقر «Insert» > «Module»، ثم الصق الكود التالي في نافذة «Module».
كود VBA: تقسيم قيم الخلايا إلى صفوف عموديًا باستخدام فاصل معيّن
Sub splitvertically()
'updatebyExtendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xStr As String
Dim xOutArr As Variant
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xStr = "" Then
xStr = xCell.Value
Else
xStr = xStr & ";" & xCell.Value
End If
Next
xOutArr = VBA.Split(xStr, ";")
xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub
3. بعد ذلك، اضغط مفتاح "F5" لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك بتحديد قيم الخلايا التي ترغب في تقسيمها عموديًا. راجع لقطة الشاشة:
4. ثم انقر على زر «موافق»، وستظهر نافذة أخرى لتذكيرك بتحديد خلية لإدخال النتيجة، كما هو موضح في لقطة الشاشة:
5. انقر على زر «موافق»، وستُقسَّم قيم الخلايا تلقائيًا إلى قائمة باستخدام الفاصل المحدَّد—كما هو موضَّح في لقطة الشاشة:
✅المزايا:
- ✔ يُتم العملية تلقائيًا، مما يوفّر الوقت
- ✔ يعمل في جميع إصدارات Excel
- ✔ يمكن تخصيصه لمختلف المحددات الفاصلة
❌العيوب:
- ✘ يتطلب معرفة أساسية ببرمجة VBA
- ✘ معقّد قليلاً للمبتدئين
يمكنك تحويل قيم الخلايا عموديًا في Excel بعدة طرق، لكلٍّ منها مزاياها الفريدة. وبمجرد فهم هذه الطرق، ستتمكن من اختيار الأنسب لاحتياجاتك وتحسين سير عملك في Excel بشكل ملحوظ. سواء كنت مستخدمًا مبتدئًا أو خبيرًا، ستساعدك هذه الأدوات والتقنيات على إدارة بياناتك بكفاءة وفعالية أعلى. وإذا كنت ترغب في اكتشاف المزيد من نصائح وحيل Excel،فإن موقعنا يوفّر آلاف الدروس التعليمية لمساعدتك على إتقان Excel.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل