方法value作用于对象range时失败_VBA编程知识点（13）——Range一些属性

VBA编程知识点（13）——Range一些属性

学习自杨洋老师《全民一起VBA》

二维数组的最大最小下标

UBound(s,1)行标最大，UBound(s,2)列标最大，LBound(s,1)行标最小，LBound(s,2)列标最小

循环range对象中的每一个单元格

代码示例：

dim UR as range ’工作表中的数据区域

dim C1 as range ’指单元格

for each C1 in UR

……

next

累加器的变量要注意归0，累乘器的变量要注意归1，而不是归0

.hasFormula属性

Range.hasFormula，当该Range是一个单元格时，若单元格有公式，则返回Ture，否则返回False

.Formula属性

Range.Formula，当该Range是一个单元格时，若是公式则返回公式文本，否则与Value属性一样，返回单元格内容

在一个单元格中写入公式

Cells(3,1).Formula = ”=A1+A2”

Cells(3,1).Value = ”=A1+A2”

两者等效

单元格去除公式保留值

关键语句是r1.Value = r1.Value，意思为取得一个单元格的Value，再写回该单元格，如此非公式的不发生变化，是公式的，公式替换为值。