1-2 使用Cells属性引用单元格区域

sub Mycell()
	dim i as byte
	for i = 1 to 10
		sheets("sheet1").cells(i,1).value = i
	next
End sub