求Excel VBA代码：匹配单元格后清除指定行区域内容

以下是满足需求的VBA代码，你可以直接复制到Excel的VBA编辑器中使用：

Sub ClearRangeOnMatch()
    Dim wsJan As Worksheet
    Dim wsReg As Worksheet
    Dim matchValue As Variant
    Dim foundCell As Range
    
    ' 定义两个工作表对象
    Set wsJan = ThisWorkbook.Worksheets("January")
    Set wsReg = ThisWorkbook.Worksheets("Registry")
    
    ' 获取Registry表D3单元格的值
    matchValue = wsReg.Range("D3").Value
    
    ' 检查值是否为空，避免无意义的查找
    If IsEmpty(matchValue) Then Exit Sub
    
    ' 在January表中精确查找匹配值
    Set foundCell = wsJan.Cells.Find(What:=matchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到匹配项，清除指定区域内容
    If Not foundCell Is Nothing Then
        wsJan.Range("E6:AJ6").ClearContents
    End If
End Sub

代码说明 #

• wsJan 和 wsReg：分别指代"January"和"Registry"工作表，简化后续代码的引用操作
• matchValue：存储Registry表D3单元格的内容，作为查找的目标值
• Cells.Find：在January表的所有单元格中执行精确匹配，若需要支持部分匹配，可将LookAt:=xlWhole改为LookAt:=xlPart
• ClearContents：仅清除单元格的内容，保留原有格式；若需要连格式一并清除，可替换为Clear

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11快捷键打开VBA编辑器
2. 在左侧工程窗口中右键点击当前工作簿，选择插入 -> 模块
3. 将上述代码粘贴到新建的模块中
4. 可直接在编辑器中按F5运行代码，也可回到Excel界面给按钮绑定该宏实现一键执行

内容的提问来源于stack exchange，提问作者TeaCake