vba - 读取每个单元格值并将结果存储在另一列 VBA

Question

我在 A 列中有一组值需要选择每个单元格值直到输入值的末尾

经过一些操作后，我需要将结果添加到 B 列

A1 结果存储在 B1 A2 在 B2

请帮忙

Answer 1

Sub LearnVBA()

    Dim c As Range
    For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        ' do something with each row
        ' for example add todays date to each cell
        Range("B" & c.Row) = Range("A" & c.Row) & Chr(32) & Now
    Next

End Sub