كيفية نقل صف بأكمله إلى ورقة أخرى بناءً على قيمة الخلية في إكسيل؟
لنقل صف بأكمله إلى ورقة أخرى بناءً على قيمة الخلية ، ستساعدك هذه المقالة.
انقل الصف بأكمله إلى ورقة أخرى بناءً على قيمة الخلية برمز 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-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
