在VBA中循环访问列

Sub LoopThroughColumn()
    Dim ws As Worksheet
    Dim col As Range
    Dim cell As Range
    
    ' 设置要循环访问的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要循环访问的列范围
    Set col = ws.Range("A:A")
    
    ' 循环访问列中的每个单元格
    For Each cell In col
        ' 在这里执行你的操作
        ' 例如，可以使用cell.Value获取单元格的值
        ' 或者使用cell.Offset(rowOffset, columnOffset)获取相对于当前单元格的偏移单元格
        
        ' 示例操作：将每个单元格的值输出到调试窗口
        Debug.Print cell.Value
    Next cell
End Sub