Excel VBA -遍历一列单元格，然后遍历一行的单元格

Sub TraverseCells()
    Dim columnRange As Range
    Dim rowRange As Range
    Dim cell As Range
    
    ' 遍历一列单元格
    Set columnRange = Range("A1:A10") ' 修改为你需要遍历的列范围
    For Each cell In columnRange
        ' 处理每个单元格
        ' 可以在这里进行你的操作，比如获取单元格的值、修改单元格的格式等
        Debug.Print cell.Value ' 示例：打印单元格的值
    Next cell
    
    ' 遍历一行的单元格
    Set rowRange = Range("1:1") ' 修改为你需要遍历的行范围
    For Each cell In rowRange
        ' 处理每个单元格
        ' 可以在这里进行你的操作，比如获取单元格的值、修改单元格的格式等
        Debug.Print cell.Value ' 示例：打印单元格的值
    Next cell
End Sub