A列のセルの値によってB列の値を変更させる

Sub サンプル1()
　　Dim i As Long
　　For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
　　　　Cells(i, 1).FormulaR1C1 = “=RC[-1]*100”　
　　Next i
End Sub

———————————————————————————-

・For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row は、”A2からAのデータが入っている最終行まで”

・Cell(i, 1)はA列のi行目を表している。あとはIf文とかで普通に条件を書く。