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
1-1 使用Range属性引用单元格区域
最新推荐文章于 2024-02-01 10:17:20 发布
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