请教一个问题

 A         B
100%      1.35
98%       1.3
96%       1.2
92%       1.1
89%       1.0
82%       0.9
76%       0.8
74%       0.7

要求用宏，或者用Command1—Click按钮实现。
根据A列的数据，从而得到B列相应的数据。（当为100% 时，B列为1；当98%<=Range("A").value<100%时为1.3；当95%<=Range("A").value<98%时为1.2；当90%<=Range("A").value<95%时为1.1；当85%<=Range("A").value<90%时为1.0；当80%<=Range("A").value<85%时为0.9；当75%<=Range("A").value<80%时为0.8；当Range("A").value<75%时为0.7.

假设共有20行，就是从A1-A20的数据得到B1-B20单元格的数据？如何写这个程序？
主要是循环这一块不知道怎么写。如果设置：
dim i as integer
for i= 1 to 20
好像定义Range（"A(i)"）.Value是不正确的。
请大家帮忙。先谢了。 --------------------编程问答-------------------- Range（sheet.cells(i,1）).Value

补充：VB ,  VBA