Excel 找到一个范围,然后根据找到的范围清除另一个范围中的内容

Excel 找到一个范围,然后根据找到的范围清除另一个范围中的内容,excel,vba,excel-2016,Excel,Vba,Excel 2016,我不确定我在我的问题中是否已经很好地解释了这一点,但我会尝试在这里更好地解释 我想做的是了解如何搜索特定文本的范围,并使用该搜索定义可以清除内容的范围。我想从中清除内容的区域中有一些固定数据,我想跳过清除。但我想清除的数据总是在固定的单元格范围内 为了更好地解释。如果我的搜索范围是A2:G50,我想根据下拉列表搜索该范围内的数据。一旦找到,我想清除11个单元格中A区域的内容,然后清除11个单元格中C:G区域的内容。将内容保留在范围B中 我不知道VBA会是什么样子,所以非常感谢您的帮助 Priva

我不确定我在我的问题中是否已经很好地解释了这一点,但我会尝试在这里更好地解释

我想做的是了解如何搜索特定文本的范围,并使用该搜索定义可以清除内容的范围。我想从中清除内容的区域中有一些固定数据,我想跳过清除。但我想清除的数据总是在固定的单元格范围内

为了更好地解释。如果我的搜索范围是A2:G50,我想根据下拉列表搜索该范围内的数据。一旦找到,我想清除11个单元格中A区域的内容,然后清除11个单元格中C:G区域的内容。将内容保留在范围B中

我不知道VBA会是什么样子,所以非常感谢您的帮助

Private Sub CommandButton2_Click()

Dim rgFound As Range
Set rgFound = Sheets("Planning").Range("A:A").Find(What:="AD6")

Range("rgFound").Resize(11, 12).Offset(, 2).Clear


End Sub
获取应用程序/对象定义的运行时错误1004

谢谢

而不是
范围(“rgFound”)
它只是
rgFound
。此变量是对找到的范围的引用

请注意,在使用之前,您必须检查是否发现任何东西:

If Not rgFound Is Nothing Then
    'now you can use rgFound
    rgFound.Resize(11, 12).Offset(, 2).Clear
Else
    MsgBox "nothing was found"
End If

还要注意,对于,还需要定义
LookIn
LookAt
SearchOrder
MatchByte
参数。否则Excel将使用以前在用户界面或VBA中使用过的任何东西(您的查找结果将随机工作或不工作)。因此,您应该明确定义它们。

您到底尝试了什么,在哪里遇到了卡滞或错误?请注意,因为这不是免费的代码编写服务,所以我们只能在您展示代码并向其提问时提供帮助。请查看有关方法
查找
偏移量
调整大小
的官方文档,这些方法将帮助您解决问题,或者在您还没有尝试的情况下自己尝试一些方法。抱歉,我在这方面不是很专业。我有一些代码,我不能完全得到工作,将做它的一部分。OP更新。抱歉,由于关键业务的新冠病毒反应,我正在尝试处理一些任务谢谢,我已经成功了。非常感谢。