كيفية نقل الصفوف المكررة إلى الأعمدة في Excel؟

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

نقل الصفوف المكررة إلى الأعمدة باستخدام كود VBA

نقل الصفوف المكررة إلى الأعمدة باستخدام كود VBA

للأسف، لا توجد طريقة مباشرة للتعامل مع هذا الأمر في Excel، ولكن يمكنك إنشاء كود VBA لحله، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: نقل الصفوف المكررة إلى عدة أعمدة

Sub ConvertTable()
'Updateby Extendoffice
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

3. بعد ذلك، اضغط على مفتاح F5 لتشغيل هذا الكود، واختر نطاق البيانات الذي تريد تحويل الصفوف المكررة فيه إلى عدة أعمدة من النافذة المنبثقة، انظر لقطة الشاشة:

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

5. وبعد ذلك انقر فوق زر موافق، سيتم تحويل البيانات التي اخترتها إلى ما يلي:

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

مقالات ذات صلة:

كيفية نقل / تحويل الأعمدة والصفوف إلى صف واحد؟

كيفية نقل / تحويل الأعمدة والصفوف إلى عمود واحد؟

كيفية نقل / تحويل عمود واحد إلى عدة أعمدة في Excel؟