VBA, для каждого цикла, увеличение смещения на 1 столбец

Question

У меня есть для каждого цикла, как я могу постепенно увеличить вывод своих ячеек на один столбец?В настоящее время это просто записывает в одну ячейку в выводе.

Sub quarterly()

Dim result As String

rev = Sheets("fin").Range("B105:F105")

For Each x In rev:

    result = Replace(x, "M", "")
    Sheets("output").Cells(2, 2) = result

Next


End Sub

Answer 1

Вы можете использовать счетчик:

Sub quarterly()

dim j as long
j = 0

dim rev as range
rev = workSheets("fin").Range("B105:F105")

dim x as variant
For Each x In rev
    Dim result As String
    result = Replace(x, "M", "")
    Sheets("output").Cells(2, 2+j) = result
    j=j+1
Next


End Sub

Answer 2

если ваш «целевой» диапазон пуст, то вы можете использовать End(xlToLeft) и шагать на одну ячейку вправо при записи любой ячейки:

Sub quarterly()    
    Dim x, rev

    rev = Sheets("fin").Range("B105:F105").Value        
    With Sheets("output")
        For Each x In rev            
            .Cells(2, .Columns.Count).End(xlToLeft).Offset(, 1) = Replace(x, "M", "")
        Next
    End With    
End Sub