Note: The other languages of the website are Google-translated. Back to English

Excel'deki tüm boş satırları veya yalnızca hücredeki ilk satırı nasıl silebilirim?

Hücrelerdeki boşluklarla karışan birden çok satır içeren bir çalışma kitabı alabilirsiniz. Hücrelerdeki bu boş satırlar nasıl silinir? Ve sadece ilk satırı silmeye ne dersiniz? Bu makale, adım adım başa çıkmanıza yardımcı olacaktır.

VBA kodu ile hücrelerdeki tüm boş satırları silin
VBA kodlu hücrelerdeki yalnızca ilk satırı silin


VBA kodu ile hücrelerdeki tüm boş satırları silin

Aşağıdaki ekran görüntüsünde gösterildiği gibi, hücrelerdeki tüm boş satırları silmek için aşağıdaki VBA kodunu çalıştırarak halletmek için kullanabilirsiniz.

1. Tuşuna basın. Ara Toplam + F11 klavyenizdeki tuşlar, ardından bir açılır Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu kopyalayıp modül pencere.

VBA kodu: Hücrelerdeki tüm boş satırları silin

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ardından, sileceğiniz boş satırlı hücreleri seçin. Kutools for Excel iletişim kutusu. Ve son olarak OK düğmesine basın.

Ardından, aşağıda gösterilen ekran görüntüsü gibi tüm boş satırların belirtilen hücrelerden silindiğini görebilirsiniz. Metinler hala farklı satırlarda yer almaktadır.


VBA kodlu hücrelerdeki yalnızca ilk satırı silin

Aşağıdaki ekran görüntüsünde gösterildiği gibi, A2 ve A3 hücresindeki ilk satırı silmek için aşağıdaki VBA kodu yardımcı olabilir.

1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu kopyalayıp modül pencere.

VBA kodu: Hücrelerdeki yalnızca ilk satırı silin

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusunda, lütfen yalnızca ilk satırı silmeniz gereken hücreleri seçin ve ardından OK düğmesine basın.

Ardından, tüm ilk satırların aşağıda gösterilen ekran görüntüsü gibi belirtilen hücrelerden silindiğini görebilirsiniz.


İlgili makale:


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-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 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ı
Yorumları sıralama ölçütü
Yorumlar (8)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
bu harika çalışıyor. Kodu, sayısal karakterlerle başlamayan, yalnızca satırları kaldıracak şekilde nasıl ayarlayabilirim?

Teşekkürler ve en iyisi,
kriko
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Jack
Maalesef henüz bu konuda size yardımcı olamam. Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk satır yerine son satırı kaldırmak için bunu nasıl uyarlayacağınızı biliyor musunuz, lütfen? TIA
Bu yorum sitedeki moderatör tarafından en aza indirildi
En iyi incelemeler ve incelemeler için bkz. Fjerne tomme linier i Exell'de der ikke en nem og ligetil måde bulur mu? Helst uden koder ve andet mystisk!

Med venlig Hilsen
Lene
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Orijinal metinleri hücrelerde farklı satırlarda tutmak istemiyorsanız, bunu yapmak için aşağıdaki yöntemleri uygulayabilirsiniz.
1. Bul ve Değiştir özelliğini kullanın:
Ctrl + H tuşlarına basın. Açılış Bul ve Değiştir iletişim kutusunda, Aranan kutusunu etkinleştirmek için tıklayın. Sayısal tuş takımında 010 yazarken Alt tuşunu basılı tutun. Şununla değiştir kutusunu boş bırakın, Tümünü Değiştir düğmesini tıklayın. Ancak tüm metinler aynı satırda yoğunlaşmıştır.
2. Bir yardımcı sütunda aşağıdaki formülü kullanın:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
A1, işlemek istediğiniz hücredir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu benim ilk VBA'm, sadece ilk adımınıza ulaştım ve şu ana kadar sorunumu çözdü. İleride başvurmak üzere talimatlarınızı yazdırdım. Şimdiye kadar sardım. Muhteşem eğitim de, kaliteli becerileriniz ve bunları detaylandırdığınız için teşekkür ederim.
5 üzerinden 5 olarak derecelendirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu Çalışır, tüm satırlarımı kaldırdı, ancak tek sorun, tek bir hücre için çalışmanın çok fazla zaman alması ve bunu yapmak için yanımda büyük verilerim var ve bunun için çok fazla zaman alacağını düşünüyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Tanver Khan,
Kod benim tarafımda normal hızda çalışıyor. Hangi Excel sürümünü kullandığınızı söyleyebilir misiniz?
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır