cells(i,1)=range("a3")
とか、こんなのを100コなんですが。右辺のセルは連続してません。