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

Question

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

并且在一些操作之后我需要在B列中添加结果

A1结果存储在B1中 B2中的A2

请帮助

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