كيفية تقسيم قيم الخلايا عمودياً في 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), ";"))

تقسيم قيم الخلايا إلى صفوف عمودياً باستخدام Kutools لـ Excel

إذا كنت تستخدم Excel 2019 أو إصداراً أقدم، يمكنك استخدام "Kutools لـ Excel" – وهو إضافة قوية تحتوي على أدوات متخصصة لتحويل وإدارة البيانات بسهولة. باستخدام ميزة "Split Data to Rows"، يمكنك تحويل قيم الخلايا عمودياً بناءً على أي فاصل تحتاج إليه.

بعد تثبيت "Kutools لـ Excel"، يرجى القيام بما يلي:

1. انقر على "Kutools" > "Merge & Split" > "Split Data to Rows"، انظر إلى لقطة الشاشة:
   
2. في مربع الحوار "Split Data to Rows"، حدد العمليات التالية:
   • حدد الخلايا التي تريد تقسيمها؛
   • في قسم "Delimiter"، حدد الفاصل لتحديد كيفية تقسيم محتوى الخلية. هنا، سأختار "semicolon".
   • أخيراً، انقر على زر "OK".
     

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

تقسيم قيم الخلايا إلى صفوف عمودياً باستخدام كود VBA

بالنسبة للمستخدمين المتقدمين، توفر 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. وبعد ذلك انقر على زر "OK"، ستظهر نافذة أخرى لتذكيرك باختيار خلية لوضع النتيجة، انظر إلى لقطة الشاشة:

5. انقر على زر "OK"، وستكون قيم الخلايا قد تم تقسيمها إلى قائمة باستخدام فاصل، انظر إلى لقطة الشاشة:

يمكن تحقيق تحويل قيم الخلايا عمودياً في Excel من خلال عدة طرق، لكل منها نقاط قوتها الخاصة. من خلال فهم هذه الطرق، يمكنك اختيار النهج الأفضل لاحتياجاتك المحددة وتحسين سير عملك في Excel. سواء كنت مبتدئاً أو مستخدمًا متقدمًا، ستساعدك هذه الأدوات والتقنيات على التعامل مع البيانات بشكل أكثر فعالية وكفاءة. إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel، فإن موقعنا يقدم آلاف الدروس لمساعدتك على إتقان Excel.