VBA中Range(c)失效问题咨询：需选中c单元格下方单元格

• Range(c)无法工作的直接原因：c本身就是Range对象，Range()函数的参数应为单元格地址字符串（如"i5"）或代表地址的变量，直接传入Range对象会导致VBA无法解析。要定位c下方的单元格，直接用c.Offset(1)即可，无需套Range()。

• 代码优化建议：原代码大量使用Select和Selection，既降低效率，又容易因工作表切换等场景出错，建议直接操作Range对象，避免不必要的选择操作。

修正后的代码：

Sub exercicio1()
    Dim c As Range
    Dim sourceRange As Range
    
    ' 遍历目标单元格区域
    For Each c In Range("i5", Range("i5").End(xlToRight))
        ' 开启自动筛选并设置条件
        ActiveSheet.Range("$B$5:$C$5570").AutoFilter Field:=1, Criteria1:=c.Value
        
        ' 定位要复制的区域（C列从第6行到最后一行）
        Set sourceRange = Range("C6", Range("C6").End(xlDown))
        
        ' 直接复制到目标位置，省略选择操作
        sourceRange.Copy Destination:=c.Offset(1)
        
        ' 关闭自动筛选
        ActiveSheet.Range("$B$5:$C$5570").AutoFilter Field:=1
        
        Application.CutCopyMode = False
    Next c
End Sub

补充说明：

• 新增Dim c As Range声明变量，避免隐式Variant类型引发的潜在问题；
• 用c.Value作为筛选条件，明确传递单元格值，避免隐式转换错误；
• 通过Copy方法的Destination参数一步完成粘贴，比先复制再选择粘贴更高效可靠。

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