Excel VBA - Tablodaki boş satırları kaldır

Question

Tablo sütununda boş hücreleri seçen ve tüm satırı silen bir makroyu çalıştırmaya çalışıyorum.

Aşağıdaki kod, run-time error 1004 - "Delete method of Range class failed"'u isteyen silme bölümü dışındaki her şeyi yapar.

Bu sorun nasıl giderilir? Teşekkürler

Answer 1

Güzel soru! Tablo olmadan, .EntireRow.Delete her zaman çalışır, ancak bir tablo içinde olmadığı gibi görünüyor.

Bu çalışır:

Sub Test() 
    Dim Rng As Range 
    On Error Resume Next 
    Set Rng = Range("Table1[[New]]").SpecialCells(xlCellTypeBlanks) 
    On Error Goto 0 
    If Not Rng Is Nothing Then 
    Rng.Delete Shift:=xlUp 
    End If 
End Sub 

Answer 2

Aslında tek bir geçişte bunu ancak ListObject nesne ve onun DataBodyRange ve ListColumns özelliklerini kullanmak gerekir edebilirsiniz:

Sub ClearBlankCellsInColumnNew() 
Dim rngBlanks As Excel.Range 

With Worksheets("Sheet1").ListObjects("Table1") 
    On Error Resume Next 
    Set rngBlanks = Intersect(.DataBodyRange, .ListColumns("New").Range).SpecialCells(xlCellTypeBlanks) 
    On Error GoTo 0 
    If Not rngBlanks Is Nothing Then 
     rngBlanks.Delete 
    End If 
End With 
End Sub 

Answer 3

1. Adım: bir yardımcı olun Bu satırdaki boş alanları kontrol ettiğiniz tablodaki sütun. Örneğin, tablonuzda 3 sütun varsa: A (Fiyat), B (Miktar) ve C (Maliyet), dördüncü bir sütun D ekler ve "Herhangi Bir Boşluk" etiketini eklersiniz. Denklem, tüm boşlukları görüntülemek için süzülecek bir sütun verecektir.

Adım 2: Daha sonra yapacağını VBA aşağıdaki: Bu aslında tablodaki tüm görülebilen veri seçerek sen yardımcı sütunu kullanılarak tabloda silmek istediğiniz satır için filtrelediğini

Range("MyTableNameHere").AutoFilter Field:=Range("MyTableNameHere[Any Blanks?]").Column, Criteria1:="Yes" 
Application.DisplayAlerts = False 
Range("MyTableNameHere").ListObject.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete 
Application.DisplayAlerts = True 
Range("MyTableNameHere").AutoFilter Field:=Range("MyTableNameHere[Any Blanks?]").Column 

ve masayı kaldırmadan. Tablodaki tüm görünür satırları nasıl sileceğimi araştırıyordum ve bunun işe yarayacağını anlayana kadar bunu buldum. Bunu alarak ve tüm satırları herhangi bir boşluk ile seçmek için bir yardımcı sütun ile birleştirmek de istediğiniz gibi görünüyor.

Answer 4

uyarlanması önceki cevaplar:

On Error Resume Next 
Set Rng = ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeBlanks) 
On Error GoTo 0 
If Not Rng Is Nothing Then 
Rng.Delete Shift:=xlUp 
End If