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

or

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

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

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

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


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


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

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

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في إطار الوحدة النمطية.

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

Sub CutDuplicates()
'Updateby Extendoffice
    Dim xRgS As Range
    Dim xRgD As Range
    Dim I As Long, J As Long
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRgS.Rows.Count
    J = 0
    For I = xRows To 1 Step -1
        If Application.WorksheetFunction.CountIf(xRgS, xRgS(I)) > 1 Then
            xRgS(I).EntireRow.Copy xRgD.Offset(J, 0)
            xRgS(I).EntireRow.Delete
            J = J + 1
        End If
    Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز، وفي مربع الحوار برزت خارج، حدد العمود الذي يحتوي على الخلايا المكررة التي تريد نقلها على أساس، انظر قطة:

4. ثم اضغط OK، في مربع موجه آخر، يرجى تحديد خلية في ورقة أخرى حيث تريد وضع الصفوف انتقلت، انظر قطة:

5. ثم انقر فوق OK، تم نقل الصفوف التي لها قيم مكررة في العمود A إلى ورقة جديدة، راجع سكرينشوت:


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

إذا كنت تريد نقل الصفوف المكررة من نطاق من الخلايا، فيمكن أن يساعدك رمز فبا التالي:

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

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في إطار الوحدة النمطية.

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

Sub CutDuplicates()
'Updateby Extendoffice
    Dim xRgD As Range, xRgS As Range
    Dim I As Long, J As Long, K As Long, KK As Long
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the data range:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    KK = 0
    For I = xRgS.Rows.Count To 1 Step -1
        For J = 1 To I - 1
            For K = 1 To xRgS.Columns.Count
                Debug.Print xRgS.Rows(I).Cells(, K).Value
                Debug.Print xRgS.Rows(J).Cells(, K).Value
                If xRgS.Rows(I).Cells(, K).Value <> xRgS.Rows(J).Cells(, K).Value Then Exit For
            Next
            If K = xRgS.Columns.Count + 1 Then
                xRgS.Rows(I).EntireRow.Copy xRgD.Offset(KK, 0).EntireRow
                xRgS.Rows(I).EntireRow.Delete
                KK = KK + 1
            End If
        Next
    Next
End Sub

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

4. انقر OK زر، ثم في مربع موجه آخر، حدد خلية في ورقة جديدة حيث تريد وضع الصفوف سوبيليكات نقلها، انظر قطة:

5. ثم اضغط OK زر، والآن، تم نقل الصفوف مكررة في ورقة أخرى قمت بتحديدها في وقت واحد، انظر الصورة:



أدوات الإنتاجية الموصى بها لبرنامج Excel

Kutools for Excel يساعدك دائمًا في إنهاء العمل قبل الوقت ، وتبرز من الحشد

  • أكثر من الميزات المتقدمة القوية 300 ، المصممة لسيناريوهات عمل 1500 ، مما يزيد الإنتاجية بنسبة 70 ، يمنحك المزيد من الوقت لرعاية الأسرة والاستمتاع بالحياة.
  • لم تعد بحاجة إلى حفظ الصيغ ورموز VBA ، امنح عقلك قسطًا من الراحة من الآن فصاعدًا.
  • كن خبيرًا في Excel في دقائق 3 ، يمكن إجراء العمليات المعقدة والمتكررة في ثوانٍ ،
  • قلل من آلاف عمليات لوحة المفاتيح والماوس كل يوم ، قل وداعًا للأمراض المهنية الآن.
  • 110,000 من الأشخاص المؤثرين للغاية واختيار 300 + للشركات ذات الشهرة العالمية.
  • 60-day ميزات كاملة تجريبية مجانية. 60 يوم استعادة الاموال الضمانات. سنوات 2 من الترقية المجانية والدعم.

يجلب الاستعراض المبوب والتحرير إلى Microsoft Office ، أقوى بكثير من علامات تبويب المتصفح

  • تم تصميم Office Tab لتطبيقات Word و Excel و PowerPoint وتطبيقات Office الأخرى: Publisher و Access و Visio و Project.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 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.

Be the first to comment.