كيفية تقسيم قيم الخلايا عموديا في Excel؟
في Excel ، يمكنك تطبيق نص إلى أعمدة ميزة لتقسيم قيم الخلية إلى أعمدة متعددة أفقيًا ، ولكنها لا تساعدك على تقسيم محتويات الخلية إلى صفوف متعددة عموديًا. وفي هذه المقالة ، سأتحدث عن بعض الطرق السريعة لتقسيم قيم الخلية إلى صفوف عموديًا بواسطة فاصل معين في Excel.
قسّم قيم الخلية إلى صفوف عموديًا بواسطة فاصل برمز VBA
قسّم قيم الخلية إلى صفوف عموديًا بواسطة فاصل باستخدام Kutools for Excel
قسّم قيم الخلية إلى صفوف عموديًا بواسطة فاصل برمز VBA
يمكن أن يساعدك رمز فبا التالي في تقسيم قيم الخلية إلى صفوف عموديًا بواسطة أي فاصل كما تريد ، يرجى القيام بما يلي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: تقسيم قيم الخلية إلى صفوف عموديا بواسطة فاصل محدد
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 زر ، وقيم الخلية تم تقسيمها إلى قائمة بواسطة فاصل ، انظر الصورة:
ملاحظات: في الكود أعلاه ، يمكنك تغيير الفاصلة المنقوطة ; إلى أي محددات أخرى تحتاجها.
قسّم قيم الخلية إلى صفوف عموديًا بواسطة فاصل باستخدام Kutools for Excel
كوتولس ل إكسيلالصورة تقسيم الخلايا الميزة هي أداة مساعدة قوية ، يمكن أن تساعدك على تقسيم قيم الخلية إلى أعمدة أو صفوف متعددة بواسطة أي فواصل حسب حاجتك.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد الخلايا التي تريد تقسيمها إلى صفوف بواسطة المحدد المحدد.
2. ثم اضغط كوتولس > دمج وتقسيم > تقسيم الخلايا، انظر لقطة الشاشة:
3. في تقسيم الخلايا مربع الحوار، حدد انقسام إلى صفوف تحت النوع القسم ، ثم تحقق أخرى من تقسيم حسب ، وأدخل الفاصل الذي تريد تقسيم قيم الخلية بناءً عليه ، انظر الصورة:
4. ثم انقر فوق Ok ، في المربع المنبثق ، حدد خلية لإخراج النتيجة ، انظر لقطة الشاشة:
5. وانقر OK زر ، تم تقسيم قيم الخلية إلى صفوف بناءً على الفاصل المحدد كما هو موضح في لقطة الشاشة التالية:
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
العرض التوضيحي: قسّم قيم الخلية إلى صفوف عموديًا بواسطة فاصل باستخدام كوتولس لـ إكسيل
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!