Excel'de kısmi satır nasıl eklenir veya silinir?
Excel'de çalışma sayfasından bir satırın tamamını eklemek veya silmek kolaydır. Ancak çalışma sayfasından yalnızca kısmi satır nasıl eklenir veya silinir? Bu makale size yardımcı olacaktır.
Hücre Ekle / Sil işleviyle kısmi satırı ekle veya sil
VBA kodu ile kısmi satırı ekleyin veya silin
Hücre Ekle / Sil işleviyle kısmi satırı ekle veya sil
Örneğin, 5. satırda üç hücreli kısmi satır eklemek veya silmek istiyorsanız, lütfen aşağıdaki işlemleri gerçekleştirin.
Kısmi satır ekle
1. 5. satırda üç hücre seçin (seçilen hücreler eklenen hücrelere eşit olmalıdır) ve ardından Ekle > Hücreleri Ekle altında Ana Sayfa sekmesi. Ekran görüntüsüne bakın:
2. içinde Ekle iletişim kutusunu seçin Hücreleri sağa kaydır or Hücreleri aşağı kaydır seçeneğini seçin ve ardından OK düğmesine basın.
Ardından, aşağıda gösterilen ekran görüntüsü gibi üç hücreli kısmi satır eklenir.
Kısmi satırı sil
1. Silmek istediğiniz kısmi satırı seçtikten sonra, Sil> öğesine tıklayın. Hücreleri Sil altında Ana Sayfa sekmesi.
2. içinde Sil iletişim kutusunu seçin Hücreleri sola kaydır or Hücreleri yukarı kaydır ihtiyaç duyduğunuz kadar ve ardından OK buton. Ekran görüntüsüne bakın:
Ardından seçilen kısmi satır silinir.
VBA kodu ile kısmi satırı ekleyin veya silin
Excel'de kısmi satır eklemek veya silmek için aşağıdaki VBA kodlarını da uygulayabilirsiniz.
1. Kısmi satırlar eklemek istediğiniz belirli bir satırdaki herhangi bir hücreyi seçin ve ardından Ara Toplam + F11 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. Ve sonra aşağıdaki VBA kodunu kopyalayıp Kod pencere.
VBA kodu: Excel'de kısmi satır ekle
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 1 sayısı, kısmi satırın ilk sütundan ekleneceği ve 3 sayısı sütunlar arasına üç hücre ekleyeceği anlamına gelir. Bunları ihtiyaçlarınıza göre değiştirebilirsiniz.
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar, ardından a Kutools for Excel iletişim kutusu açılır, lütfen ihtiyacınız olan gerekli satır sayısını girin ve ardından OK düğmesine basın.
Kutuya 3 girerseniz, OK düğmesi, çalışma sayfanızın belirtilen konumuna üç sütunlu üç kısmi satır eklenecektir.
Kısmi satırı silmek için aşağıdaki VBA kodunu çalıştırabilirsiniz.
VBA kodu: Excel'de kısmi satırı sil
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
Kodu çalıştırdıktan sonra bir de Kutools for Excel Silmek istediğiniz kaç kısmi satırı hatırlatmak için iletişim kutusu açılır, lütfen numarayı girin ve OK buton. Ardından belirtilen kısmi satırlar hemen silinir.
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!