清除宏以清除特定列中空白单元格上的特定单元格范围

Question

我昨天要求similar question 填充特定列列表中的一系列单元格。我的代码的这方面运行良好，但现在我正在尝试创建一个清晰的宏来删除插入的行。

所有新插入的行都将在 N 列中有空白单元格，所以我只是尝试搜索 N 列中的所有单元格，找到空白，然后删除 N 和 Y 列之间的行。这就是我所拥有的很远，但是当我运行它时它什么也没做？

非常感谢任何帮助！

Sub Clear_PCOTCS()
    Dim myLastRow As Long
    Dim myRow As Long

    Application.ScreenUpdating = False
    myLastRow = Cells(Rows.Count, "N").End(xlUp).Row
    For myRow = myLastRow To 1 Step -1
        If Len(Cells(myRow, "N")) = 1 And Cells(myRow, "N") = "" Then
            Range(Cells(myRow + 1, "N"), Cells(myRow + 1, "Y")).Delete  Shift:=xlDown 'CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next myRow
    Application.ScreenUpdating = True
End Sub

Answer 1

您的错误来自将错误的枚举传递给Range.Delete。它需要一个XlDeleteShiftDirection 值，而您传递给它的是一个XlDirection。请注意，虽然xlShiftUp 和xlUp 共享相同的值，但xlDown (-4121) 不是有效的XlDeleteShiftDirection。

如果您需要做的只是在“N”列中的单元格为空时删除每一行（在“N”列和“Y”列之间），那您就想多了。首先，根据您要删除的Range 的形状，shift 应该默认为xlShiftUp，因此您可以简单地省略该参数。其次，您需要删除您在此处应用的偏移量：

Range(Cells(myRow + 1, "N"), Cells(myRow + 1, "Y")).Delete

删除您正在测试的行，而不是其下方的行。您应该寻找更像这样的东西：

Sub Clear_PCOTCS()
    Dim myLastRow As Long
    Dim myRow As Long

    Application.ScreenUpdating = False
    myLastRow = Cells(Rows.Count, 14).End(xlUp).Row
    For myRow = myLastRow To 1 Step -1
        If Cells(myRow, 14).Value = vbNullString Then
            Range(Cells(myRow, 14), Cells(myRow, 25)).Delete
        End If
    Next myRow
    Application.ScreenUpdating = True
End Sub