كيف يمكن تقسيم عمود طويل إلى أعمدة متعددة في Excel؟
تقسيم عمود طويل إلى أعمدة متعددة باستخدام VBA
تقسيم عمود طويل إلى أعمدة متعددة باستخدام Kutools لـ Excel
تقسيم عمود طويل إلى أعمدة متعددة باستخدام VBA
1. اضغطAlt + F11 معًا لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج > وحدة البرمجة (Module)، ثم انسخ كود VBA التالي إلى النافذة المنبثقة.
VBA: قسّم عمودًا طويلًا إلى عدة أعمدة.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. انقرتشغيل (Run)أو اضغط مفتاحF5 لتشغيل كود VBA، فتظهر نافذة منبثقة لاختيار قائمة البيانات. بعد ذلك، انقرموافق (OK)لتحديد عدد الصفوف المطلوبة في كل عمود في النافذة التالية، ثم انقرموافق (OK)واختر خلية لإخراج النتيجة. راجع لقطات الشاشة:
 |
 |
 |
|
 |
4. انقرموافق (OK)، ثم سترى أن العمود الطويل قد قُسّم إلى أعمدة متعددة، يحتوي كل منها على 15 خلية.
تقسيم عمود طويل إلى أعمدة متعددة باستخدام Kutools لـ Excel
قد لا يفضّل البعض منكم استخدام كود VBA، ولكن لحسن الحظ، يمكنكم الاعتماد على أداةتحويل النطاقمنKutools لـ Excelلتحويل عمود طويل إلى عدد ثابت من الأعمدة بسرعة وسهولة!
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد بيانات العمود التي تريد تقسيمها، ثم انقرKutools > نطاق (Range) > تحويل النطاق. راجع لقطة الشاشة:
2. في النافذة المنبثقة، فعّل خيارعمود واحد إلى نطاق، ثم فعّل خيارقيمة ثابتةوأدخل عدد الأعمدة المطلوب في مربع النص. راجع لقطة الشاشة:
3. انقرموافق (Ok)، ثم اختر خلية واحدة لإخراج تقسيم البيانات. راجع لقطة الشاشة:
4. انقرموافق (OK)لإنهاء العمليات. الآن، تم تقسيم بيانات العمود الطويل إلى ثلاثة أعمدة.
هل هناك ما هو أسهل من كود VBA؟ باستخدام أداةتحويل النطاق (Transform Range)، يمكنك بسهولة تحويل صف إلى نطاق، أو نطاق إلى صف أو عمود واحد!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل