使用VBA For Each循环，如何实现单元格输出逐列递增？当前仅写入单个单元格

嘿，我来帮你搞定这个问题！你的原代码之所以每次都只写到同一个单元格，是因为循环里一直把结果硬写到Cells(2,2)，而且没有跟踪当前要输出的列位置。咱们来修改一下，让结果逐列往右排：

修改后的代码 #

Sub quarterly()
    Dim result As String
    Dim rev As Range
    Dim x As Range
    Dim outputCol As Integer ' 用来记录当前要写入的列号
    
    ' 初始化输出列：从第2列（B列）开始，和你原来的目标位置一致
    outputCol = 2
    
    ' 明确指定rev为Range对象，用Set赋值（VBA里对象赋值必须用Set）
    Set rev = Sheets("fin").Range("B105:F105")
    
    For Each x In rev
        ' 读取单元格的值并替换"M"，加上.Value更清晰，避免隐式转换问题
        result = Replace(x.Value, "M", "")
        ' 用outputCol作为列参数，写入对应位置
        Sheets("output").Cells(2, outputCol) = result
        ' 每处理完一个数据，列号加1，下一次就写到右边的列
        outputCol = outputCol + 1
    Next x
End Sub

关键修改点说明 #

• 新增outputCol变量：专门用来跟踪当前要写入的列，初始值设为2（对应B列），每次循环后自增1，实现逐列输出
• 修正rev的赋值：原代码没加Set，这在VBA里给对象类型（比如Range）赋值是错误的，必须用Set声明
• 加上x.Value：明确读取单元格的数值，避免VBA隐式转换可能带来的意外问题
• 替换固定列号为变量：把原来的Cells(2,2)改成Cells(2, outputCol)，让列号跟着循环动态变化

额外优化建议 #

如果希望每次运行代码前清空输出行的旧数据，可以在代码开头加上这一行，避免新旧数据混在一起：

Sheets("output").Range("B2:ZZ2").ClearContents

内容的提问来源于stack exchange，提问作者Jonathan