Sayfadaki bazı hücreler, satırlar veya sütunlar görünmüyorsa, tüm hücreleri (veya yalnızca görünür hücreleri) kopyalayabilirsiniz. Varsayılan olarak, Excel yalnızca görünen hücreleri değil, aynı zamanda gizli veya filtrelenmiş hücreleri de kopyalar. Yalnızca görünen hücreleri kopyalamak istiyorsanız aşağıdaki adımları izleyin. Örneğin, yapılandırılmış bir sayfadan yalnızca özet verileri kopyalayabilirsiniz.

Aşağıdaki adımları takip et.

Not: Kopyalarken, değerler sırayla satırlara ve sütunlara eklenir. Ekleme alanı gizli satırlar veya sütunlar içeriyorsa, kopyalanan tüm verileri görmek için bunları göstermeniz gerekebilir.

Aşağıdakileri içeren bir veri aralığındaki görünür hücreleri kopyalayıp yapıştırırken gizli hücreler veya filtre uygulandığında, görünenlerle birlikte gizli hücrelerin de eklendiğini fark edeceksiniz. Ne yazık ki, Web için Excel'de bir dizi hücreyi kopyalayıp yapıştırdığınızda bu ayarı değiştiremezsiniz çünkü Yalnızca görünür hücreleri yapıştırma kullanılamaz.

Ancak verileri tablo olarak biçimlendirir ve filtre uygularsanız yalnızca görünen hücreleri kopyalayıp yapıştırabilirsiniz.

Verilerinizi tablo olarak biçimlendirmek istemiyorsanız ve masaüstü Excel'i yüklediyseniz, görünen hücreleri kopyalayıp yapıştırmak için çalışma kitabını açabilirsiniz. Bunu yapmak için düğmeye basın Excel'de aç ve Yalnızca görünür hücreleri kopyalayıp yapıştırma bölümündeki adımları izleyin.

ek bilgi

Excel Teknik Topluluğuna her zaman bir soru sorabilir, Yanıtlar topluluğundan yardım isteyebilir ve ayrıca öneride bulunabilirsiniz. yeni fonksiyon veya web sitesinde iyileştirme

Yalnızca görünen satırları yapıştırExcel sayılar, formüller, metinler birkaç şekilde yapılabilir. Tablonun tüm satırlarında olmayan sayılar, formüller, metin eklemeniz gerektiğinde filtreyi kullanabilirsiniz. Excel'de filtre nasıl kurulur ve nasıl filtrelenir, "Excel'de Filtreleme" makalesine bakın. Ancak, yalnızca görünür hücrelere veri eklemek için, özellikle çok sayıda satır varsa, kendi yollarınıza ihtiyacınız vardır.
İlk yol normal .
Şöyle bir tablo yapalım. Tablo tüm örnekler için aynı olacaktır.
Tablodaki tüm sayıları 2 süzgeçten geçirelim. 600 sayısını kalan görünür hücrelere koyun.600 sayısını B2 hücresine koyun, ardından sütunun aşağısına kopyalayın (B2 hücresinin sağ alt köşesini çekin). Değerler yalnızca görünür hücrelere kopyalandı. Formülleri de aynı şekilde ekleyebilirsiniz. Aşağıdaki formülü C2 hücresine yazıyoruz. = A2 * 10
Bu böyle çıktı.
Filtreyi iptal edelim. Sonuç böyle bir tablo.
Formül ve sayılar yalnızca filtrelenmiş satırlara eklendi.
İkinci yol.
Ayrıca verileri filtreleyeceğiz. İlk hücreye sayı, formül, metin vb. Şimdi, binlerce satır varsa, aşağıdaki gibi hücreleri seçin: "Ctrl" + "Shift" tuşlarına + (ok) aşağı düğmesine (veya hücreleri seçmek istediğimiz yere bağlı olarak yukarı düğmesine) basın - aşağıda veya numaranın yazıldığı hücrenin üstünde) ...
Şimdi, veya "Ctrl" + G tuş bileşimine veya F5 tuşuna basın. Git iletişim kutusu görüntülenecektir. "Seç ..." düğmesine basın. Ve yeni "Bir hücre grubu seçin" iletişim kutusunda "Yalnızca görünür hücreler" kelimelerinin yanına bir onay işareti koyun."Tamam" ı tıklayın. Sonra her zamanki gibi yapıştırıyoruz.

"Hücre Grubu Seç" iletişim kutusunu çağırmanın başka bir yolu."Düzenleme" bölümündeki "Ana Sayfa" sekmesinde, "Bul ve Seç" düğmesini tıklayın. Görünen listede, "Bir hücre grubu seçin" işlevini tıklayın.

NS seçili Excel sütunlarındaki görünür hücreleri doldur, "Ctrl" + D tuş bileşimine basın. Ve seçilen tüm sütunlar, ilk hücrede olduğu gibi veri veya formülle doldurulacaktır. Örneğimizde, D2 hücresine, D sütununa 800 yazdık.

Üçüncü yol.
Yeni sütunda (örneğimizde E sütunu) hücreleri seçin. F5 tuşuna basın. Git iletişim kutusu görünecektir. "Seç ..." düğmesine basın. Ve yeni "Bir hücre grubu seçin" iletişim kutusunda, "Yalnızca görünür hücreler" kelimelerinin yanına bir onay işareti koyun. "Tamam" ı tıklayın. Şimdi, seçimi iptal etmeden, sütunun ilk hücresine (E2'miz var) bir formül, sayı vb. Giriyoruz. "Ctrl" + "Enter" tuş bileşimine basın.

Koşullu biçimlendirme (5)
Listeler ve Aralıklar (5)
Makrolar (VBA prosedürleri) (63)
Çeşitli (39)
Excel hataları ve aksaklıkları (4)

Kopyalanan hücreler yalnızca görünür/filtrelenmiş hücrelere nasıl yapıştırılır

Genel olarak, makalenin anlamı zaten başlıktan açık olduğunu düşünüyorum. Sadece biraz genişleteceğim.

Excel'in yalnızca görünür satırları seçmenize izin verdiği bir sır değil. (örneğin, bazıları gizlenmişse veya bir filtre uygulanmışsa).

Dolayısıyla, bu şekilde yalnızca görünen hücreleri kopyalarsanız, beklendiği gibi kopyalanırlar. Ancak kopyalananı filtrelenmiş bir aralığa (veya gizli satırlar içeren) yapıştırmaya çalıştığınızda, yapıştırmanın sonucu tam olarak beklediğiniz gibi olmayacaktır. Gizli satırlara bile veriler eklenecektir.

Tek hücre aralığını kopyalayın ve yalnızca görünenlere yapıştırın
Yalnızca görünür hücrelere veri eklemek için aşağıdaki makroyu uygulayabilirsiniz:

Seçenek Açık Dim rCopyRange As Range "Bu makro ile verileri kopyalıyoruz Sub My_Copy () If Selection.Count> 1 O zaman Set rCopyRange = Selection.SpecialCells (xlVisible) Else: Set rCopyRange = ActiveCell End If End Sub "Bu makro ile seçili hücreden başlayarak verileri ekliyoruz. Sub My_Paste () Eğer rCopyRange Hiçbir Şey Değilse O Zaman Sub'dan Çıkın Eğer rCopyRange.Areas.Count> 1 Sonra MsgBox "Eklenecek aralık birden fazla bölge içermemelidir!", vbCritical, "Geçersiz aralık": Exit Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 To rCopyRange .Columns.Count li = 0: lCount = 0: le = iCol - rCopyRange.Columns'daki (iCol) Her rCell için 1 .Hücreler ActiveCell.Offset (li, le) Yaparsa .EntireColumn.Hidden = False And _ ActiveCell. (li, le) .EntireRow.Hidden = False O zaman rCell.Copy ActiveCell.Offset (li, le): lCount = lCount + 1 End If li = li + 1 Loop while lCount> = rCell.Row - rCopyRange.Cells (1 ) .Satır Sonraki rCell Sonraki iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub

Seçenek Explicit Dim rCopyRange As Range "Bu makro ile veriyi kopyalıyoruz Sub My_Copy () If Selection.Count> 1 Ardından Set rCopyRange = Selection.SpecialCells (xlVisible) Else: Set rCopyRange = ActiveCell End If End Sub" Bu makro ile yapıştırıyoruz seçilen hücrelerle başlayan veriler Sub My_Paste () rCopyRange Hiçbir Şey Değilse O Zaman Sub'dan Çık Eğer rCopyRange.Areas.Count> 1 Sonra MsgBox "Yapıştırılan aralık birden fazla bölge içermemelidir!", vbCritical, "Geçersiz aralık": Exit Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 iCol için = 1 To rCopyRange. Columns.Count li = 0: lCount = 0: le = iCol - 1 rCopyRange.Columns (iCol) İçindeki Her rCell için .Hücreler ActiveCell.Offset (li, le) .EntireColumn.Hidden = False And _ ActiveCell.Offset ( li, le) .EntireRow.Hidden = False O zaman rCell.Copy ActiveCell.Offset (li, le): lCount = lCount + 1 End If li = li + 1 Loop while lCount> = rCell.Row - rCopyRange.Cells (1) .Row Next rCell Next iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub

Bütünlük açısından bu makroları kısayol tuşlarına atamak daha iyidir (aşağıdaki kodlarda bu, kodlu bir kitap açtığınızda otomatik olarak yapılır). Bunun için aşağıdaki kodların modüle kopyalanması yeterlidir. Bu kitap (BuÇalışma Kitabı) :

Açık Seçenek "Private Sub Workbook_BeforeClose (Boolean Olarak İptal Et) Application.OnKey" ^ q ": Application.OnKey" ^ w "End Sub" Private Sub'ı açarken kısayol tuşları atayın Workbook_Open () Application.OnKey "^ q", "My_Copy": Application.OnKey "^ w", "My_Paste" End Sub

Artık tuşlara basarak istediğiniz aralığı kopyalayabilirsiniz. Ctrl + Q , ve filtrelenmiş olanın içine yerleştirin - Ctrl + w .

Örneği indir

(46.5 KiB, 9 622 indirme)

Yalnızca görünen hücreleri kopyalayın ve yalnızca görünür olanlara yapıştırın
Site ziyaretçilerinin isteği üzerine bu prosedürü değiştirmeye karar verdim. Artık herhangi bir aralığı kopyalamak mümkündür: gizli satırlarla, gizli sütunlarla ve kopyalanan hücreleri herhangi bir aralığa yapıştırın: gizli satırlarla, gizli sütunlarla. Bir öncekiyle tamamen aynı şekilde çalışır: tuşlara basarak Ctrl + Q istenen aralığı kopyala (gizli/filtrelenmiş satır ve sütunlarla veya gizli değil) ve klavye kısayoluyla ekleyin Ctrl + w ... Ekleme ayrıca gizli / filtrelenmiş satır ve sütunlarda veya gizli satırlar olmadan gerçekleştirilir.
Kopyalanan aralık formüller içeriyorsa, referansların kaymasını önlemek için yalnızca hücrelerin değerlerini kopyalayabilirsiniz - yani. değerler eklenirken formüller değil, hesaplamalarının sonucu eklenir. Veya yapıştırmanın gerçekleştiği hücrelerin biçimlerini korumanız gerekiyorsa, yalnızca hücrelerin değerleri kopyalanıp yapıştırılacaktır. Bunu yapmak için koddaki satırı değiştirmeniz gerekir (aşağıdaki dosyada):

rCell.Copy rResCell.Offset (lr, lc)

rCell.Copy rResCell.Offset (lr, lc)

buna:

rResCell.Offset (lr, lc) = rCell.Value

rResCell.Offset (lr, lc) = rCell.Value

Aşağıdaki dosyada bu satırların her ikisi de mevcut, işinize daha uygun olanı bırakmanız yeterli.

Örnek indir:

(54.5 KiB, 7.928 indirme)

Ayrıca bakınız:
[]

Makale yardımcı oldu mu? Bağlantıyı arkadaşlarınızla paylaşın! video dersleri

("Alt çubuk" :( "textstyle": "static", "textpositionstatic": "alt", "textautohide": true, "textpositionmarginstatic": 0, "textpositiondynamic": "bottomleft", "textpositionmarginleft": 24, " textpositionmarginright ": 24," textpositionmargintop ": 24," textpositionmarginbottom ": 24," texteffect ":" slayt "," texteffecteasing ":"easyOutCubic "," texteffectduration ": 600," texteffectslidedirection ":" left "," texteffectslidedistance " : 30, "texteffectdelay": 500, "texteffectseparate": false, "texteffect1": "slide", "texteffectslidedirection1": "sağ", "texteffectslidedistance1": 120, "texteffecteasing1": "easeOutCubic", "texteffectduration1": 600 , "texteffectdelay1": 1000, "texteffect2": "slide", "texteffectslidedirection2": "sağ", "texteffectslidedistance2": 120, "texteffecteasing2": "easeOutCubic", "texteffectduration2": 600, "texteffectdelay2": 1500 textcss " :" görüntü: blok; dolgu: 12 piksel; metin hizalama: sol; "," textbgcss ":" görüntü: blok; konum: mutlak; üst: 0 piksel; sol: 0 piksel; genişlik: %100; yükseklik: %100 ; arka plan -renk: # 333333; opaklık: 0,6; filtre: a lpha (opaklık = 60); "," titlecss ":" ekran: blok; pozisyon: göreceli; yazı tipi: kalın 14px \ "Lucida Sans Unicode \", \ "Lucida Grande \", sans-serif, Arial; renk: #fff; "," açıklamacss ":" ekran: blok; pozisyon: göreceli; yazı tipi: 12px \ "Lucida Sans Unicode \", \ "Lucida Grande \", sans-serif, Arial; renk: #fff; üst kenar boşluğu: 8px; "," buttoncss ":" ekran: blok; pozisyon: göreceli; margin-top: 8px; "," texteffectresponsive ": true," texteffectresponsivesize ": 640," titlecssresponsive ":" font-size: 12px; "," descriptioncssresponsive ":" display: yok! önemli; "," buttoncssresponsive ": "", "addgooglefonts": false, "googlefonts": "", "textleftrightpercentforstatic": 40))

Excel'deki verilerin seçimi, bir filtre veya sıralama kullanılarak gerçekleştirildi. Şimdi basılmaları veya başka bir yere taşınmaları gerekiyor. Excel'e kopyala gizli hücreler de kopyalanacak şekilde yapılandırılır.
İki yol düşünün, NS Excel'de filtrelenmiş satırlar nasıl kopyalanır.
İlk yol.
Excel'de harika bir özellik var - Excel'de "Özel Yapıştır" işlevi.
Yani bir masamız var.
Filtre nasıl kurulur, makaleye bakın " Excel'de filtre ".
Tüm Ivanov'ları bir filtre ile listeden kaldırıyoruz. Bu böyle çıktı.
Tabloyu seçin, içerik menüsünde "Kopyala"yı tıklayın. Sol fare ile A9 hücresine tıklayın, içerik menüsünden “değerler”i seçin.
"Tamam" ı tıklayın. işte. Sadece görünen çizgilerin değeri değil, aynı zamanda hücrelerin formatı da kopyalandı.
bir nüans var- filtrelenmiş verileri, filtrenin bulunduğu satırlara yerleştirmeyin. Örneğin, örneğimizde - 1-7 satırlarında değil, altında veya başka bir sayfada vb. Filtrenin bulunduğu satırlara eklersek, filtrelenen veriler filtre tarafından gizlenen satırlara eklenecektir. Genel olarak, yulaf lapası olduğu ortaya çıkacaktır. İkinci yol.
Tablo aynı. Filtrelenmiş veriler içeren bir tablo seçin. "Ana Sayfa" sekmesinde, "Düzenleme" bölümündeki düğmeye basın Excel'de Bul ve Seç işlevleri... Ardından, "Git" düğmesini tıklayın. Görüntülenen iletişim kutusunda "Seç ..." düğmesini tıklayın. "Bir hücre grubu seçin" penceresinde "yalnızca görünür hücreler" satırının yanına bir onay işareti koyun. "Tamam" ı tıklayın. Şimdi, aynı seçili tabloda, sağ fare tuşuyla bağlam menüsünü açın. "Kopyala" işlevine basın. Yeni konumda (örneğimizde bu A15 hücresi), "Ekle"yi tıklayın. Her şey. Bu böyle çıktı.
Nasıl, kopyalamadan, hemen Excel'de filtre verilerini yazdır, makaleye bakın "Yer imi Excel çalışma sayfası"Sayfa düzeni""