كيفية نقل الأعمدة إلى صفوف وإدراج صفوف جديدة لملء البيانات في Excel؟
في هذه المقالة ، أقدم رمز VBA لتحويل الأعمدة إلى صفوف وإدراج صفوف جديدة لملء البيانات كما هو موضح أدناه ، إذا كنت مهتمًا بهذه العملية ، فيرجى الانتقال إلى أدناه للحصول على مزيد من التفاصيل.
تبديل وإدراج الصفوف باستخدام VBA
تبديل وإدراج الصفوف باستخدام VBA
لا توجد طريقة مباشرة لتغيير موضع النطاق وإدراج الصفوف لملء نفس البيانات ، ولكن هنا يمكنني تقديم رمز VBA لحل هذه المهمة بسرعة.
1. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ولصق رمز 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. انقر OK. وتم تحويل النطاق المحدد كما هو موضح أدناه.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!