كيفية نقل صف بأكمله إلى ورقة أخرى بناءً على قيمة الخلية في إكسيل؟
لنقل صف بأكمله إلى ورقة أخرى بناءً على قيمة الخلية ، ستساعدك هذه المقالة.
انقل الصف بأكمله إلى ورقة أخرى بناءً على قيمة الخلية برمز VBA
انقل صفًا بأكمله إلى ورقة أخرى بناءً على قيمة الخلية باستخدام Kutools for Excel
انقل الصف بأكمله إلى ورقة أخرى بناءً على قيمة الخلية برمز VBA
كما هو موضح أدناه ، تحتاج إلى نقل الصف بأكمله من Sheet1 إلى Sheet2 إذا كانت كلمة معينة "Done" موجودة في العمود C. يمكنك تجربة رمز VBA التالي.
1. صحافة قديم+ F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في نافذة ميكروسوفت فيسوال باسيك للتطبيقات ، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في النافذة.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
ملاحظات: في الكود ، Sheet1 هي ورقة العمل التي تحتوي على الصف الذي تريد نقله. و Sheet2 هي ورقة العمل الوجهة التي ستحدد فيها الصف. "ج: ج"هو العمود الذي يحتوي على قيمة معينة ، وكلمة"تم. "هي القيمة المحددة التي ستنقل الصف بناءً عليها. يرجى تغييرها بناءً على احتياجاتك.
3. اضغط على F5 مفتاح لتشغيل التعليمات البرمجية ، ثم سيتم نقل الصف الذي يفي بالمعايير في الورقة 1 إلى الورقة 2 على الفور.
ملاحظات: سيؤدي رمز فبا أعلاه إلى حذف الصفوف من البيانات الأصلية بعد الانتقال إلى ورقة عمل محددة. إذا كنت تريد فقط نسخ الصفوف بناءً على قيمة الخلية بدلاً من حذفها. يرجى تطبيق كود VBA 2 أدناه.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
انقل صفًا بأكمله إلى ورقة أخرى بناءً على قيمة الخلية باستخدام Kutools for Excel
إذا كنت مبتدئًا في كود VBA. هنا أقدم ملف حدد خلايا معينة فائدة كوتولس ل إكسيل. باستخدام هذه الأداة المساعدة ، يمكنك بسهولة تحديد جميع الصفوف بناءً على قيمة خلية معينة أو قيم خلية مختلفة في ورقة العمل ، ونسخ الصفوف المحددة إلى ورقة العمل الوجهة حسب حاجتك. الرجاء القيام بما يلي.
قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.
1. حدد قائمة الأعمدة التي تحتوي على قيمة الخلية التي ستنقل الصفوف بناءً عليها ، ثم انقر فوق كوتولس > أختار > حدد خلايا معينة. انظر لقطة الشاشة:
2. في الافتتاح حدد خلايا معينة مربع الحوار، اختر الصف بأكمله في ال نوع التحديد القسم، حدد يساوي في ال نوع خاص أو معين القائمة المنسدلة ، أدخل قيمة الخلية في مربع النص ، ثم انقر فوق OK .
آخر حدد خلايا معينة ينبثق مربع الحوار لإظهار عدد الصفوف المحددة ، وفي الوقت نفسه ، تم تحديد جميع الصفوف التي تحتوي على القيمة المحددة في العمود المحدد. انظر لقطة الشاشة:
3. اضغط على CTRL + C لنسخ الصفوف المحددة ، ثم لصقها في ورقة العمل الوجهة التي تريدها.
ملاحظات: إذا كنت تريد نقل الصفوف إلى ورقة عمل أخرى بناءً على قيمتين مختلفتين للخلية. على سبيل المثال ، حرك الصفوف بناءً على قيم الخلية إما "تم" أو "معالجة" ، يمكنك تمكين Or الشرط في حدد خلايا معينة مربع الحوار كما هو موضح أدناه لقطة الشاشة:
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!