请求添加VBA代码：清除G列值为-的首行至50000行A-H列内容

需要在现有VBA宏中新增功能：从G列第一个值为“-”的行开始，清除该行至第50000行的A到H列内容（注意不能删除行，否则会破坏依赖此数据的数组公式）。此前尝试过多种方法（如生成范围公式、填充空格、VBA构建范围等）均未成功，现提供可行实现方式。

现有宏代码 #

Sub CopyPasteToPrYrData()
'
' CopyPasteToPrYrData Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
    Sheets("Barrel List by Producer").Range("AD3:AK30000").Copy
    Sheets("Prior Years Data").Range("A1:H29998").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Sheet1.Activate
    Range("A1:B29998").Select
        With Selection
        Selection.NumberFormat = "General"
        .Value = .Value
    
End With

    Range("A1:H29998").Sort Key1:=Range("G1"), Order1:=xlDescending, Header:=xlNo
    

End Sub

修改后的完整宏代码 #

Sub CopyPasteToPrYrData()
'
' CopyPasteToPrYrData Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
    ' 原有复制粘贴逻辑
    Sheets("Barrel List by Producer").Range("AD3:AK30000").Copy
    Sheets("Prior Years Data").Range("A1:H29998").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Sheet1.Activate
    
    ' 优化原有格式处理逻辑（去掉Select，提升效率）
    With Range("A1:B29998")
        .NumberFormat = "General"
        .Value = .Value
    End With
    
    ' 原有排序逻辑
    Range("A1:H29998").Sort Key1:=Range("G1"), Order1:=xlDescending, Header:=xlNo
    
    ' 新增：清除指定范围内容的逻辑
    Dim firstDashRow As Long
    Dim clearRange As Range
    
    ' 查找G列第一个值为"-"的行（精准匹配完整单元格内容）
    On Error Resume Next
    firstDashRow = Columns("G").Find(What:="-", LookIn:=xlValues, LookAt:=xlWhole).Row
    On Error GoTo 0
    
    ' 验证目标行有效性后执行清除
    If firstDashRow > 0 And firstDashRow <= 50000 Then
        Set clearRange = Range("A" & firstDashRow & ":H50000")
        clearRange.ClearContents ' 仅清除内容，保留行结构与格式
    End If
End Sub

关键细节说明 #

• 用Columns("G").Find精准定位目标行，LookAt:=xlWhole避免误匹配包含-的其他文本
• 加入错误处理防止找不到-时触发报错
• 使用ClearContents仅清除单元格内容，完全保留行结构，不会影响依赖的数组公式
• 增加范围有效性判断，确保仅在目标行≤50000时执行操作

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