VBA遍厉代码单元格

当然，以下是一个简单的VBA代码示例，用于遍历Excel工作表中的单元格：

vba
复制
Sub TraverseCells()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range

' 设定工作表
Set ws = ThisWorkbook.Sheets("Sheet1")

' 设定要遍历的区域，这里我们遍历A1到B10的区域
Set rng = ws.Range("A1:B10")

' 遍历区域中的每一个单元格
For Each cell In rng
    ' 输出单元格的值
    Debug.Print cell.Value
Next cell

End Sub

这个宏将遍历工作表"Sheet1"中的A1到B10区域，并打印出每个单元格的值。您可以根据需要修改这个代码，以便遍历不同的工作表或区域，以及执行其他操作。