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