كيفية تحويل الأعمدة إلى صفوف وإدراج صفوف جديدة لملء البيانات في Excel؟

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

التحويل وإدراج الصفوف باستخدام VBA

التحويل وإدراج الصفوف باستخدام VBA

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

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

2. انقر فوق إدراج > وحدة، والصق كود VBA أدناه في نافذة الوحدة. شاهد لقطة الشاشة:

VBA: التحويل وإدراج الصفوف.

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

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

4. انقر موافق. وسيتم تحويل النطاق المحدد كما هو موضح في لقطة الشاشة أدناه.

ملاحظة: قبل تشغيل الكود، من الأفضل أن تقوم بحفظ نسخة من البيانات الأصلية.

نصيحة. إذا كنت ترغب في تحويل جدول ثنائي الأبعاد إلى جدول أحادي الأبعاد أو العكس بسرعة، يرجى تجربة استخدام أداة Transpose Table Dimensions من Kutools لـ Excel كما هو موضح في لقطة الشاشة التالية. تعمل الأداة بكامل وظائفها بدون قيود لمدة 30 أيام، يرجى تنزيلها الآن وتجربتها مجانًا.