Excel'de bir hücredeki tüm boş satırları mı yoksa yalnızca ilk satırı mı silmek istiyorsunuz?
Birden fazla satırdan oluşan metinler ve karışık boş satırlar içeren hücrelerden oluşan bir çalışma kitabı alabilirsiniz. Bu hücrelerdeki boş satırları nasıl kaldırabilirsiniz? Ya da yalnızca ilk satırı silmek isterseniz ne yapmalısınız? Bu makale, sizi bu işlemleri adım adım gerçekleştirmeniz için yönlendirecektir.
Hücrelerdeki tüm boş satırları VBA koduyla silme
Hücrelerde yalnızca ilk satırı VBA koduyla silme
Hücrelerdeki tüm boş satırları VBA koduyla silme
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ırabilirsiniz.
1. Klavyenizde Alt + F11 tuşlarına basın; böylece bir Microsoft Visual Basic for Applications penceresi açılır.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.
VBA kodu: Hücrelerdeki tüm boş satırları silme
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 Sub3. Kodu çalıştırmak için F5 tuşuna basın. Ardından, boş satırları sileceğiniz hücreleri Kutools for Excel iletişim kutusunda seçin ve son olarak Tamam düğmesine tıklayın.
Belirtilen hücrelerdeki tüm boş satırların kaldırıldığını göreceksiniz; metinler, aşağıda ekran görüntüsünde gösterildiği gibi, hâlâ farklı satırlarda yer almaya devam eder.
Hücrelerde yalnızca ilk satırı VBA koduyla silme
Aşağıdaki ekran görüntüsünde gösterildiği gibi, A2 ve A3 hücrelerindeki ilk satırı silmek için aşağıdaki VBA kodu işinize yarayabilir.
1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applicationspenceresinde,Ekle>Modülseçeneğine tıklayın. Ardından aşağıdaki VBA kodunu Modülpenceresine kopyalayıp yapıştırın.
VBA kodu: Hücrelerde yalnızca ilk satırı silme
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 Sub3. Kodu çalıştırmak için F5 tuşuna basın. Karşılaştığınız Kutools for Excel iletişim kutusunda, lütfen yalnızca ilk satırını silmek istediğiniz hücreleri seçin ve ardından Tamam düğmesine tıklayın.
Belirtilen hücrelerden ilk satırların kaldırıldığını, aşağıda ekran görüntüsünde gösterildiği gibi göreceksiniz.
İlgili makale:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar