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

sub MyRng()
	range("a1:b4,d5:e8").select
	range("a1").formula = "=Rnd()"
	range("a1:b4 b2:c6").value = 10
	range("a1","b4").font.italic = True
end sub