如何在VBA中循环访问各种列

Sub LoopThroughColumns()
    Dim ws As Worksheet
    Dim col As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 循环遍历每一列
    For Each col In ws.UsedRange.Columns
        ' 在这里编写你想要执行的操作
        ' 例如，访问列的值：
        MsgBox col.Value
        
        ' 或者，访问列的属性：
        MsgBox col.Address
        
        ' 或者，修改列的值：
        col.Value = "New Value"
    Next col
End Sub

Sub LoopThroughColumns()
    Dim ws As Worksheet
    Dim lastColumn As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一列的索引
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 循环遍历每一列
    For i = 1 To lastColumn
        ' 在这里编写你想要执行的操作
        ' 例如，访问列的值：
        MsgBox ws.Cells(1, i).Value
        
        ' 或者，访问列的属性：
        MsgBox ws.Cells(1, i).Address
        
        ' 或者，修改列的值：
        ws.Cells(1, i).Value = "New Value"
    Next i
End Sub