如何在VBA上遍历多个单元格值？

Sub TraverseCells()
    Dim cell As Range
    Dim rng As Range
    
    ' 设置要遍历的单元格范围
    Set rng = Range("A1:A10")
    
    ' 遍历单元格范围
    For Each cell In rng
        ' 在这里可以对每个单元格的值进行操作
        Debug.Print cell.Value
    Next cell
End Sub

Sub TraverseCells()
    Dim row As Integer
    Dim col As Integer
    Dim numRows As Integer
    Dim numCols As Integer
    
    ' 设置要遍历的单元格范围
    numRows = 10
    numCols = 5
    
    ' 遍历单元格范围
    For row = 1 To numRows
        For col = 1 To numCols
            ' 在这里可以对每个单元格的值进行操作
            Debug.Print Cells(row, col).Value
        Next col
    Next row
End Sub