如何在VBA中创建从闭合工作表跳过单元格的循环

Sub SkipCellsInClosedWorksheet()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 获取闭合工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取要循环的范围
    Set rng = ws.Range("A1:A10")
    
    ' 循环遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格是否可见
        If Not cell.EntireRow.Hidden And Not cell.EntireColumn.Hidden Then
            ' 在这里编写你要执行的操作
            ' 例如，可以在这里对可见单元格进行计算、赋值等操作
            ' 可以使用 cell.Value 获取单元格的值
            ' 也可以使用 cell.Offset(rowOffset, columnOffset) 获取相对于当前单元格的偏移单元格
            
            ' 示例操作：将可见单元格的值加倍
            cell.Value = cell.Value * 2
        End If
    Next cell
End Sub