Yinelenen satırları Excel'de başka bir sayfaya nasıl taşıyabilirim?
Belirli bir sütunda bazı yinelenen değerler içeren bir veri aralığı listeniz varsa, şimdi tüm satırları yinelenen hücrelere göre başka bir sayfaya taşımak istiyorsunuz. Excel'de bu görevle nasıl başa çıkabilirsiniz?
Bir sütundaki yinelenen hücrelere dayalı olarak tüm satırları başka bir sayfaya taşıma
Yinelenen satırlara göre tüm satırları başka bir sayfaya taşıyın
Bir sütundaki yinelenen hücrelere dayalı olarak tüm satırları başka bir sayfaya taşıma
Bir sütunda yinelenen değerler varsa, tüm satırları başka bir sayfaya taşıyın, aşağıdaki VBA kodu size bir iyilik yapabilir:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Bir sütundaki yinelenen hücrelere göre satırların tamamını başka bir sayfaya taşıyın:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve açılan iletişim kutusunda, taşımak istediğiniz yinelenen hücreleri içeren sütunu seçin, ekran görüntüsüne bakın:
4. Sonra tıklayın OK, başka bir istem kutusunda, lütfen taşınan satırları koymak istediğiniz başka bir sayfada bir hücre seçin, ekran görüntüsüne bakın:
5. Ve sonra tıklayın OK, A sütununda yinelenen değerlere sahip satırlar yeni bir sayfaya taşındı, ekran görüntüsüne bakın:
Yinelenen satırlara göre tüm satırları başka bir sayfaya taşıyın
Yinelenen satırları bir hücre aralığından taşımak istiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Tüm satırları, yinelenen satırlara göre başka bir sayfaya taşıyın:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, açılan iletişim kutusunda, yinelenen satırları taşımak istediğiniz veri aralığını seçin, ekran görüntüsüne bakın:
4. tıklayın OK düğmesini ve ardından başka bir istem kutusunda, taşınan ek satırları yerleştirmek istediğiniz yeni bir sayfada bir hücre seçin, ekran görüntüsüne bakın:
5. Sonra tıklayın OK düğmesi ve şimdi, yinelenen satırlar aynı anda belirttiğiniz başka bir sayfaya taşındı, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!