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

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

انقسام وتبديل مع VBA

انقسام وتبديل مع كوتولس ل إكسيل

انقسام وتبديل مع VBA

1. صحافة ALT + F11 مفاتيح للعرض ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود أدناه في ملف وحدة نافذة.

فبا: انقسام وتبديل

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. صحافة F5 مفتاح لتشغيل الكود ، يظهر لك مربع حوار لتحديد نطاق لتقسيمه وتبديله.

4. انقر OK. ينبثق مربع حوار لتحديد موقع لوضع البيانات.

5. انقر OK، وتم تقسيم التحديد ونقله بفاصلة.

ملاحظة: في الكود ، الفاصلة في ملف strTxt & "،" و ary = انقسام (strTxt، "،") هي المحددات التي ستقسم البيانات بناءً عليها ، يمكنك تغييرها حسب حاجتك.

انقسام وتبديل مع كوتولس ل إكسيل

بإضافة إلى كوتولس ل إكسيل، يمكنك تطبيقه تقسيم الخلايا أولاً لتقسيم الخلايا بواسطة المحدد ، ثم تطبيق نطاق التحويل أداة لتحويل الخلايا إلى عمود واحد.

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي :(قم بتنزيل Kutools for Excel الآن!)

1. حدد الخلايا التي تريد تقسيمها ، وانقر فوق كوتولس > دمج وتقسيم > تقسيم الخلايا. انظر لقطة الشاشة:

2. في ال تقسيم الخلايا الحوار ، تحقق انقسام إلى أعمدة ، ثم حدد المحدد الذي تريد التقسيم بناءً عليه ، انقر فوق Ok. وحدد خلية فارغة لوضع النتيجة في الثانية تقسيم الخلايا الحوار. انظر لقطة الشاشة:

3. انقر OK، ثم تم تقسيم الخلايا إلى أعمدة ، ثم انقر فوق كوتولس > الفترة (من ... إلى) > نطاق التحويل. انظر لقطة الشاشة:

4. في ال نطاق التحويل الحوار ، تحقق النطاق لعمود واحد، اضغط هنا Ok، وحدد خلية لوضع النتيجة. انظر لقطة الشاشة:

5. انقر OK، الآن تم تحويل النطاق إلى عمود واحد.

تلميح. إذا كنت ترغب في الحصول على نسخة تجريبية مجانية من تقسيم الخلايا و نطاق التحويل وظائف، يرجى الانتقال إلى تجربة Kutools for Excel مجانًا اولا ثم انتقل لتطبيق العملية حسب الخطوات اعلاه.

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...