İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Satırları təkrar Excel-də başqa bir hesabata necə köçürmək olar?

Müəyyən bir sütunda bəzi dublikatları olan məlumatlar aralığının bir siyahısı varsa, artıq, bütün satırları cüt kameralar əsasında başqa bir hesabata daşımaq istəyir. Excel-də bu vəzifəni necə həll edə bilərsən?

Bütün sətirləri bir sütundakı təkrarlanan hüceyrələrə əsasən başqa bir hesabata keçir

Bütün satırları təkrarlanan satırlara əsasən başqa bir hesabata keçir


Bütün sətirləri bir sütundakı təkrarlanan hüceyrələrə əsasən başqa bir hesabata keçir


Bir sütunda cüt dəyərlər varsa, bütün satırları başqa bir hesabata daşıyın, aşağıdakı VBA kodu sizə bir xeyir verə bilər:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və Modul penceresinde aşağıdakı kodu yapışdırın.

VBA kodu: Bütün sətirləri bir sütundakı təkrarlanan hüceyrələrə əsasən başqa bir hesabata keçirin:

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. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və açılmış olan informasiya qutusunda, hərəkət etmək istədiyiniz təkrarlanan hüceyrələri olan sütunu seçin, ekran görünüşünə baxın:

4. Sonra basın OK, başqa bir əmr qutusuna köçürülən satırları qoymaq istədiyiniz başqa bir hesabatda bir hüceyrəni seçin, ekran görünüşünə baxın:

5. Və sonra basın OK, sütun A dırnaqları olan satırlar yeni bir hesabata köçürülmüşdür, ekran görünüşünə baxın:


Bütün satırları təkrarlanan satırlara əsasən başqa bir hesabata keçir

Bir sıra hüceyrələrdən təkrarlanan satırları hərəkət etmək istəyirsinizsə, aşağıdakı VBA kodu sizə kömək edə bilər:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və Modul penceresinde aşağıdakı kodu yapışdırın.

VBA kodu: Bütün satırları təkrarlanan satırlar əsasında başqa bir hesabata keçirin:

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. Sonra basın F5 bu kodu çalıştırmak üçün açar, çıxarılan informasiya qutusunda, cüt sütunları taşımak istediğiniz veri aralığını seçin, ekran görüntüsüne baxın:

4. Basın OK düyməsini və sonra başqa bir əmr qutusuna köçürülmüş səpələnmiş satırları qoymaq istədiyiniz yeni bir hesabatdakı bir hüceyrəni seçin, ekran görüntüsünə baxın:

5. Sonra basın OK düyməsini basın və indi, təkrarlanmış satırlar bir dəfə göstərilən başqa bir hesabata köçürülmüşdür, ekran görünüşünə baxın:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.