帮我编一个vba代码，在b列中循环遍历出a1单元的值

以下是一个简单的 VBA 代码，可以在 B 列中循环遍历 A1 单元格的值：

Sub LoopThroughColumnB()
    Dim lastRow As Integer
    Dim i As Integer
    
    ' 获取 B 列的最后一行
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    
    ' 循环遍历 B 列中的每一行，并在每一行中写入 A1 单元格的值
    For i = 1 To lastRow
        Range("B" & i).Value = Range("A1").Value
    Next i
End Sub

请将代码复制粘贴到 VBA 编辑器中，并在 Excel 工作簿中运行它。注意，此代码将在 B 列中覆盖所有现有值，因此请确保在使用之前备份数据。