读取每个单元值，结果存储在另一列VBA

Question

我已设置在列中的值的 需要选择各单元值高达结束值的输入

和一些操作之后我需要添加的结果在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