Kriterlere göre birden çok çalışma sayfasındaki satırları yeni bir sayfaya nasıl kopyalayabilirim?
Diyelim ki, aşağıda gösterilen ekran görüntüsü ile aynı biçimlendirmeye sahip üç çalışma sayfası içeren bir çalışma kitabınız var. Şimdi, bu çalışma sayfalarından C sütununda "Tamamlandı" metnini içeren tüm satırları yeni bir çalışma sayfasına kopyalamak istiyorsunuz. Bunları tek tek elle kopyalayıp yapıştırmadan bu sorunu hızlı ve kolay bir şekilde nasıl çözebilirsiniz?
Kriterlere göre birden çok çalışma sayfasındaki satırları VBA kodu ile yeni bir sayfaya kopyalayın
Kriterlere göre birden çok çalışma sayfasındaki satırları VBA kodu ile yeni bir sayfaya kopyalayın
Aşağıdaki VBA kodu, belirli bir koşula göre çalışma kitabındaki tüm çalışma sayfalarından belirli satırları yeni bir çalışma sayfasına kopyalamanıza yardımcı olabilir. Lütfen şunu yapın:
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: Kriterlere göre birden çok sayfadan satırları yeni bir sayfaya kopyalayın
Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
If xWs.Name <> xStr Then
Set xRg = xWs.Range("C:C")
Set xRg = Intersect(xRg, xWs.UsedRange)
For Each xRRg In xRg
If xRRg.Value = xRStr Then
xRRg.EntireRow.Copy
xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
xC = xC + 1
End If
Next xRRg
End If
Next xWs
Application.DisplayAlerts = True
End Sub
not: Yukarıdaki kodda:
- Metin "Tamamlandı" bunda xRStr = "Tamamlandı" komut dosyası, satırları temel alarak kopyalamak istediğiniz belirli koşulu belirtir;
- C: C Bu da XRg = xWs.Range ("C: C") olarak ayarlayın komut dosyası, koşulun bulunduğu belirli sütunu belirtir.
3. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve belirli koşullara sahip tüm satırlar kopyalanmış ve mevcut çalışma kitabındaki Kutools for Excel adlı yeni bir çalışma sayfasına yapıştırılmıştır. Ekran görüntüsüne bakın:
Daha göreceli çekme veya kopyalama veri makaleleri:
- Excel'de Gelişmiş Filtre ile Verileri Başka Bir Çalışma Sayfasına Kopyala
- Normalde, aynı çalışma sayfasındaki ham verilerden verileri çıkarmak için Gelişmiş Filtre özelliğini hızla uygulayabiliriz. Ancak bazen, filtrelenmiş sonucu başka bir çalışma sayfasına kopyalamaya çalıştığınızda, aşağıdaki uyarı mesajını alırsınız. Bu durumda, Excel'de bu görevle nasıl başa çıkabilirsiniz?
- Excel'de Sütun Ölçütlerine Göre Satırları Yeni Sayfaya Kopyala
- Örneğin, bir meyve satın alma tablosu var ve şimdi kayıtları belirtilen meyveye göre yeni sayfaya kopyalamanız gerekiyor, Excel'de nasıl kolayca yapılır? Burada, Excel'deki sütun ölçütlerine göre satırları yeni sayfaya kopyalamak için birkaç yöntem sunacağım.
- Excel'de Sütun Belirli Metin / Değer İçeriyorsa Satırları Kopyala
- Bir sütunda belirli bir metin veya değer içeren hücreleri bulmak ve ardından bulunan hücrenin bulunduğu tüm satırı kopyalamak istediğinizi varsayarsak, bununla nasıl başa çıkabilirsiniz? Burada, sütunun belirli bir metin veya değer içerip içermediğini bulmak ve ardından tüm satırı Excel'de kopyalamak için birkaç yöntem sunacağım.
En İyi Ofis Üretkenliği Araçları
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
- Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
- Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
- Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
- Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
- Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
- Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
- Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
- Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
- Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...
- 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!