Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

Excel'de satır sonlarını hızlı bir şekilde nasıl kaldırabilirim?

Bazen web sitesinden bazı verileri kopyaladığınızda veya değerlerinizi Alt + Enter tuşları, bazı satır sonları veya satır sonları alacaksınız, aşağıdaki ekran görüntülerinde gösterildiği gibi Excel'de birden çok satır sonunu hızlı bir şekilde kaldırmak istiyorsanız, bunu aşağıdaki gibi yapabilirsiniz:

doc-remove-line-breaks1 -2 doc-remove-line-breaks2

Bul ve Değiştir işleviyle birden çok satır sonunu kaldırın

VBA kodu ile birden çok satır sonunu kaldırın

Kutools for Excel ile birden çok satır sonunu kaldırın

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2019 ve 365 ile çalışır; Tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay dağıtım.


ok mavi sağ balon Bul ve Değiştir işleviyle birden çok satır sonunu kaldırın

Excel'deki Bul ve değiştir işlevi ile birden çok satır sonunu hızlıca kaldırabilirsiniz, lütfen aşağıdaki gibi işleyin:

1. Birden çok satır sonunu kaldırmak istediğiniz aralığı seçin.

2. tıklayın Anasayfa > Bul ve Değiştir > değiştirmek veya tıklayın Ctrl + F kısayollar ve bir Bul ve Değiştir iletişim kutusu açılacaktır.

3. Sonra da Ne bul kutu, lütfen basılı tutun ALT tuşuna ve ardından sayılara tıklayın 010 sayısal klavyeden. Bırak Ile değiştirin kutusu boş bırakın veya bir boşluk çubuğu girin. Ekran görüntüsüne bakın:

doc-remove-line-breaks3

4. Ve sonra tıklayın Tümünü Değiştir düğmesi, tüm satır sonları kaldırıldı. Ekran görüntüsüne bakın:

doc-remove-line-breaks2


ok mavi sağ balon VBA kodu ile birden çok satır sonunu kaldırın

Aşağıdaki VBA kodu, bir çalışma sayfasındaki tüm satır sonlarını silmenize de yardımcı olabilir. Lütfen şunu yapın:

1. tıklayın Geliştirici > Visual Basic basın veya Alt + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi, Ardından Ekle > modülve aşağıdaki kodu girin:

VBA kodu: bir çalışma sayfasındaki birden çok satır sonunu kaldırın

Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve satır sonlarını kaldırmak istediğiniz aralığı seçmenizi söyleyen bir istem kutusu görünecektir, ekran görüntüsüne bakın:

doc-remove-line-breaks4

3. Sonra tıklayın OK ve seçimin tüm satır sonları silindi.


ok mavi sağ balon Kutools for Excel ile birden çok satır sonunu kaldırın

Belki bazen Bul ve Değiştir işlevini nasıl kullanacağınızı unutacaksınız veya birden fazla satır sonunu kaldırmak için koda aşina olmayacaksınız, bu durumda, Kutools for Excel Bu sorunu çözmenize yardımcı olabilir.

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Şimdi alın

Kutools for Excel'i kurduktan sonra, lütfen aşağıdaki adımları uygulayın:

1. Satır başlarını kaldırmak istediğiniz aralığı seçin.

2. Le Marchê'nin deri koleksiyonlarını görmek için Kutools > Metin Araçları > Karakterleri Kaldır, ekran görüntüsüne bakın:

doc-remove-line-breaks5

3. In Karakterleri Kaldır iletişim kutusu, işaretleyin Basılmayan seçeneği ve sonucu şuradan görebilirsiniz: Önizleme bölmesi de, ekran görüntüsüne bakın:

doc-remove-line-breaks6

4. Ve sonra tıklayın OK or Uygulamak. Tüm satır sonları seçili hücrelerden kaldırılacaktır.

Bu Karakter Kaldırma özelliği hakkında daha fazla bilgi edinmek için tıklayın.


İlgili Makaleler:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • 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 Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları 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ı ...
  • 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...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ajay Kumar Mohini · 6 years ago
    Thank You so much yaar. I found it very useful for my day to day office works.
  • To post as a guest, your comment is unpublished.
    Balamurugan · 6 years ago
    Thank you very much. it is really superb
  • To post as a guest, your comment is unpublished.
    meter21 · 7 years ago
    Thank you werry helpfull for my and my MYSQL CSV import :-)
  • To post as a guest, your comment is unpublished.
    Mary Pugh · 7 years ago
    THANK YOU!!! I have been battling blank lines in cell for too long.

    You solved the problem...thank you so much
  • To post as a guest, your comment is unpublished.
    kcjt2009 · 7 years ago
    I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return?

    Sub RemoveCarriage()
    'Update 20131216
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
    Next
    End Sub


    Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.