1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option ExplicitSub R锾攒揉敫andom()Dim myRange As RangeDim rng As Range'设置对单元格区域的引用Set myRange = Worksheets("Sheet1").Range("A1:D5")Set rng = Worksheets("Sheet1").Range("e1:i5")'对Range对象进行操作myRange = "=rand()"rng.Value = myRange.ValuemyRange.Font.Bold = TrueEnd Sub
3、这里我们设置了2个区域变量，直接声明它们是range类型，这样才能对其区域单元格进行引用。如果去掉类型声明，那么过程将会报错需要对象。这点大家要注意。Dim myRangeDim rng 会报错。
4、我们先来设置以下区域单元格的范围，这里myRange是在sheet1工作表中的a1到d5的矩形连续单元格范围。而rng是同样sheet1工作表中的e1到i5的矩形连续单元格。
5、因为声明了range类型，所以我们这里直接可以对myRange变量进行赋值，使用=号直接赋值即可。由于我们赋值的是一个excel程序函数，所以要用双引号括起来。
6、接着重点是，如果要对这个区域内的单元格值进行引用，我们必须清楚写清楚是引用的两个区域的值value。写法就要这样rng.Value = myRange.Value
7、最后我们可以得到正确的结果，在这两个区域中myRange是随机函数公式，而rng是固定的当次运行随机函数后的值。这里两个值不对应一致是因为在粘贴操作后rand（）函数重新计算了一次的结果。
8、先写到这里了，谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。