نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية نقل صف كامل إلى ورقة أخرى استنادا إلى قيمة الخلية في إكسيل؟

لنقل صف كامل إلى ورقة أخرى استنادا إلى قيمة الخلية، سوف تساعدك هذه المقالة.

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

نقل الصف بأكمله إلى ورقة أخرى استناداً إلى قيمة الخلية باستخدام Kutools لـ Excel


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

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

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تنزيل النسخة التجريبية المجانية الآن!


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

كما تظهر أدناه لقطة شاشة، تحتاج إلى نقل الصف بأكمله من شيتشنومك إلى شيتنومك إذا كانت كلمة معينة "تم" موجودة في العمود C. يمكنك محاولة التعليمات البرمجية فبا التالية.

1. صحافة قديم+ F11 مفاتيح في وقت واحد لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

رمز فبا شنومك: نقل الصف بأكمله إلى ورقة أخرى استنادا إلى قيمة الخلية

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 هي ورقة العمل الوجهة حيث سيتم تحديد موقع الصف إلى. "C: C"هو العمود يحتوي على قيمة معينة، وكلمة"القيام به"هي قيمة معينة سوف تتحرك الصف على أساس. يرجى تغييرها بناء على احتياجاتك.

3. اضغط على F5 مفتاح تشغيل التعليمات البرمجية، ثم سيتم نقل الصف الذي يستوفي المعايير في شيتسنومك إلى شيتشنومك على الفور.

ملاحظة:: سيؤدي كود فبا أعلاه إلى حذف صفوف من البيانات الأصلية بعد الانتقال إلى ورقة عمل محددة. إذا كنت تريد فقط نسخ الصفوف استنادا إلى قيمة الخلية بدلا من حذفها. يرجى تطبيق رمز فبا التالي شنومكس.

رمز فبا شنومك: نسخ صف كامل إلى ورقة أخرى استنادا إلى قيمة الخلية

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 لـ Excel

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس.

1. حدد قائمة الأعمدة تحتوي على قيمة الخلية التي ستقوم بنقل صفوفها استنادًا إلى ، ثم انقر فوق Kutools > اختار > حدد خلايا محددة. انظر لقطة الشاشة:

2. في الافتتاح حدد خلايا محددة مربع الحوار، اختر الصف بأكمله في ال نوع التحديد القسم، حدد يساوي في ال نوع خاص أو معين القائمة المنسدلة ، أدخل قيمة الخلية في مربع النص ثم انقر فوق OK .

آخر حدد خلايا محددة يظهر مربع الحوار لإظهار عدد الصفوف المحددة ، وفي الوقت نفسه ، تحتوي جميع الصفوف على القيمة المحددة في العمود المحدد. انظر لقطة للشاشة:

3. اضغط على CTRL + C مفاتيح لنسخ الصفوف المحددة ، ثم لصقها في ورقة العمل الوجهة التي تحتاج إليها.

ملاحظة:: إذا كنت تريد نقل الصفوف إلى ورقة عمل أخرى استنادًا إلى قيمتين مختلفتين للخانة. على سبيل المثال ، نقل الصفوف بناء على قيم الخلية إما "تم" أو "معالجة" ، يمكنك تمكين Or الشرط في حدد خلايا محددة مربع الحوار على النحو التالي قطة المعروضة:

تلميح.إذا كنت ترغب في الحصول على نسخة تجريبية مجانية من هذه الأداة، يرجى الذهاب إلى تحميل البرنامج بحرية أولا، ثم انتقل إلى تطبيق العملية وفقا الخطوات المذكورة أعلاه.


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


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.