excel - 删除不同工作簿上的空行

Question

我有一个小问题，我无法弄清楚。 (考虑到使用的功能，这似乎很简单)。

简短描述:我有一个输入文件并将一些列从那里复制到 DestWbk 的代码，工作表的名称是“sheet1”。这只是代码的一部分，但是数据被复制了，现在我需要从特定列中具有空值的行中清除它。

DestWbk=ThisWorkbook

        check = "alpha"
        checkcol = DestWbk.Sheets("sheet1").Cells.Find(What:=check, LookIn:=xlValues).Column
        MsgBox (checkcol)
           Set column_range = DestWbk.Sheets("sheet1").Cells(checkcol).EntireColumn

            If DestWbk.Worksheets("sheet1").WorksheetFunction.CountBlank(DestWbk.Worksheets("sheet1").column_range) > 0 Then
            DestWbk.Worksheets("sheet1").column_range.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            End If

Answer 1

像这样的东西应该工作:

Dim f as range, sht1 as worksheet, column_range as range, check

Set sht1 = DestWbk.Sheets("sheet1")

check = "alpha"
Set f= sht1.Cells.Find(What:=check, LookIn:=xlValues)

'make sure you got a match from Find before proceeding
if not f is nothing then
    Set column_range = sht1.usedrange.columns(f.column)
    on error resume next 'ignore error if no blanks
    column_range.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    on error goto 0      'stop ignoring errors
End If