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 Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!