كيف يمكن تحويل قائمة العناوين بسرعة من صفوف إلى أعمدة في Excel؟
على سبيل المثال، لديك قائمة واحدة تحتوي على الأسماء والعناوين، وتحتاج إلى تحويلها إلى أعمدة، كما يظهر في لقطة الشاشة أدناه. وعلى الرغم من أن Excel لا يحتوي على دالة مدمجة لهذا الغرض، فإن هذا المقال يقدم لك بعض الطرق السريعة والفعّالة لحل هذه المشكلة بسهولة.
تحويل قائمة العناوين باستخدام VBA
تحويل قائمة العناوين باستخدام Kutools لـ Excel
تحويل قائمة العناوين باستخدام VBA
لتحويل قائمة العناوين من صفوف إلى أعمدة، يمكنك ببساطة تطبيق كود VBA.
1. افتح الورقة التي تحتوي على البيانات التي تريد تحويلها، ثم اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة البرمجة (Module)، ثم الصق كود الماكرو أدناه فيوحدة البرمجة (Module). راجع لقطة الشاشة:
VBA: تحويل قائمة العناوين
Sub fixText()
'UpdatebyExtendoffice0170905
Dim I As Integer
Dim K As Integer
Dim xRgS As Range
Dim xRgD As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRgD(1).Offset(, 0).Value = "Name"
xRgD(1).Offset(, 1).Value = "Address"
xRgD(1).Offset(, 2).Value = "City/State"
K = 1
For I = 1 To xRgS.Rows.Count
xRgD(1).Offset(K).Value = xRgS(I).Value
xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
K = K + 1
I = I + 2
Next
End Sub
3. اضغط على مفتاحF5 لتشغيل الكود، وستظهر نافذة منبثقة لتذكيرك باختيار نطاق البيانات الذي تريد استخدامه. راجع لقطة الشاشة:
4. انقر علىموافق، ثم في النافذة المنبثقة التالية، حدد خليةً لوضع نتيجة التحويل فيها. راجع لقطة الشاشة:
5. انقر علىموافق. الآن، تم تحويل القائمة الوحيدة إلى أعمدة.
تحويل قائمة العناوين باستخدام Kutools لـ Excel
إذا كنت تمتلكKutools لـ Excel، فيمكنك استخدام ميزةتحويل النطاقلتحويل قائمة العناوين بسرعة إلى أعمدة.
1. حدد البيانات التي تريد تحويلها، ثم انقر علىKutools > نطاق > تحويل النطاق. راجع لقطة الشاشة:
2. في النافذة المنبثقة، فعّل خيارعمود واحد إلى نطاقفي قسمنوع التحويل، ثم فعّل خيارقيمة ثابتةوأدخل العدد المطلوب في مربع النص الموجود على اليمين. راجع لقطة الشاشة:
3. انقر علىموافق، ثم اختر خليةً لوضع نتيجة التحويل فيها. راجع لقطة الشاشة:
4. انقر علىموافق. تم تحويل قائمة العناوين.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
عرض توضيحي: تحويل قائمة العناوين باستخدام Kutools لـ 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل