讀取每個單元值，結果存儲在另一列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