كيف يمكن تحويل كل 5 صفوف (أو n صفوف) من عمود واحد إلى أعمدة متعددة؟
يمكن أن يكون تحويل كل 5 صفوف (أو كل *n* صفوف) من عمود واحد إلى أعمدة متعددة في Excel أمرًا بالغ الفائدة عند إعادة تنظيم البيانات للتحليل أو إعداد التقارير. لنفترض أن لديك قائمة طويلة من البيانات في العمود A، وترغب الآن في تحويل كل 5 صفوف منها إلى صف أفقي عبر أعمدة متعددة — مثل تحويل النطاق A1:A5 إلى C6:G6، ثم A6:A10 إلى C7:G7، وهكذا دواليك، كما يظهر في لقطة الشاشة على اليسار. توجد عدة طرق للتعامل مع هذه المهمة، ولكلٍّ منها ميزاته الخاصة. دعنا نستعرض معًا دليلًا تفصيليًّا خطوة بخطوة يوضح كيفية إنجاز ذلك بسلاسة ودقة.
تحويل كل 5 صفوف أو n صفوف من عمود واحد إلى أعمدة متعددة
تحويل كل 5 صفوف أو n صفوف من عمود واحد إلى أعمدة متعددة باستخدام صيغة
في Excel، يمكنك تطبيق الصيغة التالية لتحويل كل n صفوف من عمود واحد إلى أعمدة متعددة، يُرجى اتباع الخطوات التالية:
1. أدخل الصيغة التالية في خلية فارغة لعرض النتيجة فيها.
=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
2. بعد ذلك، اسحب مقبض التعبئة إلى اليمين عبر خمس خلايا، ثم واصل سحبه لأسفل حتى تصل إلى النطاق الذي يظهر فيه الرقم 0، كما في لقطة الشاشة:
تحويل كل 5 صفوف أو n صفوف من عمود واحد إلى أعمدة متعددة باستخدام Kutools لـ Excel
هل تشعر بالإحباط عند تحويل بيانات Excel من عمود واحد إلى أعمدة متعددة؟ إليك الحل المثالي: ميزة «Kutools لـ Excel» ضمن أداة «تحويل النطاق»! سواء كنت بحاجة إلى تحويل كل 5 صفوف أو أي عدد مخصص من الصفوف، فنحن نغطي جميع احتياجاتك. يمنحك خيار التحويل المرِن حرية تحديد عدد الصفوف التي ترغب في تحويلها من عمود واحد إلى أعمدة متعددة بكل سهولة. العملية بسيطة وسريعة ولا تتطلب خطوات معقدة—فبضع نقرات فقط تكفي لإتمام المهمة!
بعد تثبيت «Kutools لـ Excel»، يُرجى اتباع الخطوات التالية:
1. حدد البيانات في العمود، ثم انقر فوق «Kutools» > «Range» > «تحويل النطاق»، كما هو موضح في لقطة الشاشة:
2. في مربع حialog «تحويل النطاق»، اختر «عمود واحد إلى نطاق» ضمن «نوع التحويل»، ثم فعّل خانة الاختيار «قيمة ثابتة» تحت «الصفوف لكل سجل»، وبعدها حدّد عدد الأعمدة التي ترغب في تحويل البيانات إليها في مربع «قيمة ثابتة». انظر لقطة الشاشة:
3. بعد ذلك، انقر فوق زر «موافق»، ثم في المربع المنبثق، حدد خلية لإخراج النتيجة، كما هو موضح في لقطة الشاشة:
4. ثم انقر فوق زر «موافق»، وستتم تحويل بيانات عمودك كل 5 صفوف كما هو موضح في لقطة الشاشة التالية:
تحويل كل 5 صفوف أو n صفوف من عمود واحد إلى أعمدة متعددة باستخدام كود VBA
إذا واجهت صعوبة في تطبيق الصيغة بشكل صحيح، فإن كود VBA التالي سيُساعدك أيضًا.
1. اضغط مع الاستمرار على مفتاحَي «ALT» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».
2. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة «Module».
كود VBA: تحويل كل 5 صفوف أو n صفوف من عمود واحد إلى أعمدة متعددة:
Public Sub TransposeData()
'updateby Extendoffice
Dim xLRow As Long
Dim xNRow As Long
Dim i As Long
Dim xUpdate As Boolean
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count > 1) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range only contain one column", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xLRow = xRg.Rows.Count
For i = 1 To xLRow Step 5
xRg.Cells(i).Resize(5).Copy
xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
xNRow = xNRow + 1
Next
Application.ScreenUpdating = xUpdate
End Sub
3. بعد لصق الكود، اضغط على مفتاح "F5" لتشغيله، وسيظهر لك مربع منبثق يذكّرك بتحديد العمود الذي ترغب في تحويله—كما في لقطة الشاشة التالية:
4. بعد ذلك، انقر فوق «موافق»، ثم حدد خلية واحدة لوضع النتيجة فيها من خلال المربع المنبثق الآخر، كما هو موضح في لقطة الشاشة:
5. ثم انقر فوق «موافق»، وستتم تحويل البيانات الموجودة في العمود إلى خمسة أعمدة بالضبط كما تحتاج — راجع لقطة الشاشة:
لتحويل كل 5 صفوف أو n صفًا من عمود واحد إلى أعمدة متعددة في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل