VBA遍历单元格

在VBA中遍历单元格可以使用`For Each`语句和`Range`对象，以下是一个简单的示例：

Sub LoopCells()
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 获取当前工作表对象
    Set ws = ActiveSheet
    
    ' 遍历单元格
    For Each cell In ws.UsedRange
        ' 获取单元格的值
        Dim value As Variant
        value = cell.Value
        
        ' 处理单元格的值
        Debug.Print value
    Next cell
End Sub

上面的代码中，我们首先使用`ActiveSheet`方法获取当前工作表对象，并使用`UsedRange`属性获取所有已使用单元格的范围。接着，我们使用`For Each`语句遍历这个范围内的单元格，使用`Value`属性获取单元格的值，最后可以对单元格的值进行处理。