Transpose duplicate rows to columns in Excel | كيفية تبديل الصفوف المتكررة إلى أعمدة في اكسل

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

مع الأسف برنامج اكسل العادي لا يدعم خاصية تبديل أو تحويل التكرار في الصفوف إلى أعمدة بطريقة مباشرة، ولكن مع استخدام الاكواد البرمجية بلغة الفيجوال بيسك (VBA) قد تساعدك لحل هذه المشكلة.

قد تحتاج إلى برنامج Kutools لتسهيل هذه المهمة: اضغط هنا

لحل هذه المشكلة يمكن اتباع الحل التالي:

1. 1- في برنامج اكسل، قم بالضغط على مفتاحي alt+F11 معا لفتح نافذة تطبيقات مايكروسوفت فيجوال بيسك.
2. 2- من النافذة التي ظهرت > اضغط على إدراج Insert < وبعد ذلك قم بالضغط على موديول Module لفتح نافذة الاكواد.
3. 3- ألصق هذا الكود البرمجي الخاص بعملية التبديل أو التحويل:
   
   
   Sub ConvertTable() 'Update 20150113 Dim xArr1 As Variant Dim xArr2 As Variant Dim InputRng As Range, OutRng As Range Dim xRows As Long xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8) Set OutRng = OutRng.Range("A1") xArr1 = InputRng.Value t = UBound(xArr1, 2): xRows = 1 With CreateObject("Scripting.Dictionary") .CompareMode = 1 For i = 2 To UBound(xArr1, 1) If Not .exists(xArr1(i, 1)) Then xRows = xRows + 1: .Item(xArr1(i, 1)) = VBA.Array(xRows, t) For ii = 1 To t xArr1(xRows, ii) = xArr1(i, ii) Next Else xArr2 = .Item(xArr1(i, 1)) If UBound(xArr1, 2) < xArr2(1) + t - 1 Then ReDim Preserve xArr1(1 To UBound(xArr1, 1), 1 To xArr2(1) + t - 1) For ii = 2 To t xArr1(1, xArr2(1) + ii - 1) = xArr1(1, ii) Next End If For ii = 2 To t xArr1(xArr2(0), xArr2(1) + ii - 1) = xArr1(i, ii) Next xArr2(1) = xArr2(1) + t - 1: .Item(xArr1(i, 1)) = xArr2 End If Next End With OutRng.Resize(xRows, UBound(xArr1, 2)).Value = xArr1 End Sub  

     
4.  4- لتشغيل الكود نقوم بالضغط على F5 < ثم تحديد نطاق البيانات التي تريد تحويلها في ملف اكسل. كما في الصورة.
   
   
   
5. 5- بالضغط على موافق OK >  ومن ثم تحديد الخلية التي تريد أن يبدأ منها عملية التبديل. كما في الصورة.
   
   
6. 6- ثم اضغط موافق OK >  وسترى عملية التبديل.

للتوضيح أكثر بإمكانك مشاهدة فيديو لشرح ذلك:

المراجع والبرامج:

https://www.extendoffice.com/

Kutools 

Tweet