如何使用vba宏更新excel中筛选出的单元格的值？

Sub UpdateFilteredCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置筛选范围，可以根据需求修改
    Set rng = ws.Range("A1:C10")
    
    ' 循环遍历筛选范围内的每个单元格
    For Each cell In rng.SpecialCells(xlCellTypeVisible)
        ' 根据需要更新单元格的值，可以根据实际需求修改
        cell.Value = "Updated Value"
    Next cell
    
    ' 清除筛选
    ws.AutoFilterMode = False
End Sub