Question

在我的宏中，我需要调整单元格大小并删除选择。我尝试了一切，但它不会工作。它不断在我的ActiveCell.resize行上给出对象定义的错误。我多次改变这条线无济于事。请帮忙，这可能很简单。

Sub CovDatesAndDeletes()
    'shortcut ctrl + b

    Dim SrchRng As Range
    Set SrchRng = ActiveSheet.Range("A2:C62000")


    For Each Source In SrchRng
        If Source.Text Like "ACCUM_CLM" Then
            Source.Activate
            ActiveCell.Resize(25, -2).Select
            Selection.Delete Shift:=xlUp     
        End If
    Next Source 

End Sub

Answer 1

ActiveCell.Resize调整范围对象的大小，而不是您在问题中提到的单元格。你需要澄清你想要做什么（我不能在评论中提出这个问题 - 没有足够的代表）。

您似乎想要搜索包含字符串ACCUM_CLM的范围内的单元格。找到后，将范围选择向下扩展25行，但不包括列B和C，删除选择内容并将删除内容移动到您开始的位置。如果这是您想要执行的操作，请按以下步骤更改代码：

If Source.Text Like "ACCUM_CLM" Then
    Source.Resize(25).Select
    Source.Delete (xlUp)
End If

Answer 2

只是试着从上面的代码中感受到你想要做的事情 - 你可以尝试替换ActiveCell.Resize（25，-2）。选择Range（“A”和Activecell.row）.Resize （25,3）。选择并反馈这是否真的可以解决这里的任何问题？

VB删除选择不起作用

2 个答案: