在excel中循环A列中每个单元格的VBA

Sub LoopColumnA()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取A列最后一个非空单元格的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历A列中的每个单元格
    For i = 1 To lastRow
        ' 获取当前单元格的值
        Dim cellValue As Variant
        cellValue = Cells(i, 1).Value
        
        ' 在这里可以对单元格的值进行处理
        ' 例如，可以输出到调试窗口
        Debug.Print cellValue
        
        ' 或者可以将值写入其他单元格
        ' 例如，将值写入B列相同行号的单元格
        Cells(i, 2).Value = cellValue
    Next i
End Sub