讀資料那行要這樣寫才對

b=Range("a" & i)

不過，整個程式有很大的問題
(這是全部的程式嗎???)

執行完之後 b=range("a99") ， a01~a98等於作白工

整個程式可簡化成 b = range("a99")

更重要的事，我看不懂您的問題
=============================
我"猜"您要問的可能是

讀取 sheet1 工作表 a1~a100 的內容
到
sheet2 工作表 b1~b100 填入

For i = 1 To 100
Sheet2.Range("b" & i) = Sheet1.Range("a" & i)
Next i