excel-vba 循环一列

在Excel VBA中，循环一列通常使用`For`循环或`For Each`循环来实现。以下是一个简单的示例，展示了如何循环遍历某一列的单元格并执行某些操作。

假设我们要循环遍历A列的单元格，并将其中的每个值乘以2：

Sub LoopThroughColumn()
    Dim ws As Worksheet
    Dim cell As Range
    Dim lastRow As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 找到A列的最后一个非空行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历A列的每个单元格
    For Each cell In ws.Range("A1:A" & lastRow)
        ' 将单元格的值乘以2
        cell.Value = cell.Value * 2
    Next cell
End Sub

这个示例中，我们首先定义了一个工作表对象`ws`，然后通过`Cells`对象找到A列的最后一个非空行。接着，使用`For Each`循环遍历A列的每个单元格，并将每个单元格的值乘以2。