Excel'de kısmi satır nasıl eklenir veya silinir?

Excel'de çalışma sayfasından tüm bir satır eklemek veya silmek kolaydır. Ancak çalışma sayfasından yalnızca kısmi satırı nasıl eklersiniz veya silersiniz? Bu makale size yardımcı olacaktır.

Ekle/Sil Hücreleri işleviyle kısmi satır ekleme veya silme
VBA koduyla kısmi satır ekleme veya silme

Ekle/Sil Hücreleri işleviyle kısmi satır ekleme veya silme

Örneğin, üç hücre içeren 5. satırdaki kısmi satırı eklemek veya silmek istiyorsanız, lütfen aşağıdaki adımları izleyin.

Kısmi satır ekleme

1. 5. satırda üç hücre seçin (seçilen hücreler eklenen hücrelere eşit olmalıdır), ardından Giriş sekmesi altında Ekle > Hücre Ekle'ye tıklayın. Ekran görüntüsüne bakın:

2. Ekleme iletişim kutusunda, Hücreleri sağa kaydır veya Hücreleri aşağı kaydır seçeneğini belirleyin ve ardından Tamam düğmesine tıklayın.

Ardından, aşağıdaki ekran görüntüsünde gösterildiği gibi üç hücreli kısmi satır eklenir.

Kısmi satır silme

1. Silmek istediğiniz kısmi satırı seçtikten sonra, Giriş sekmesi altında Sil > Hücreleri Sil'e tıklayın.

2. Silme iletişim kutusunda, ihtiyacınıza göre Hücreleri sola kaydır veya Hücreleri yukarı kaydır seçeneğini belirleyin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Ardından, seçilen kısmi satır silinir.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

VBA koduyla kısmi satır ekleme veya silme

Ayrıca, Excel'de kısmi satır eklemek veya silmek için aşağıdaki VBA kodlarını da kullanabilirsiniz.

1. Kısmi satırlar eklemek istediğiniz belirli bir satırdaki herhangi bir hücreyi seçin, ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Excel'de kısmi satır ekleme

Sub InsertRow()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub

Not: VBA kodunda, sayı 1, kısmi satırın ilk sütundan itibaren ekleneceği anlamına gelir ve sayı 3 ise sütunlar arasında üç hücre ekleneceği anlamına gelir. İhtiyaçlarınıza göre bunları değiştirebilirsiniz.

3. Kodu çalıştırmak için F5 tuşuna basın, ardından bir Kutools for Excel iletişim kutusu açılır, lütfen ihtiyaç duyduğunuz satır sayısını girin ve Tamam düğmesine tıklayın.

Kutuya 3 girerseniz, Tamam düğmesine tıkladıktan sonra, çalışma sayfanızın belirtilen konumuna üç sütunlu üç kısmi satır eklenir.

Kısmi satır silmek için aşağıdaki VBA kodunu çalıştırabilirsiniz.

VBA kodu: Excel'de kısmi satır silme

Sub DelActiveCell_Row()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub

Kod çalıştırıldıktan sonra, silmek istediğiniz kısmi satır sayısını hatırlatmak için yine bir Kutools for Excel iletişim kutusu açılır, lütfen sayıyı girin ve Tamam düğmesine tıklayın. Ardından belirtilen kısmi satırlar hemen silinir.