VBA+EXCEL单元格相对位置表达 及EXCEL的舍入误差问题

若已知某单元格及另外一个单元格的相对它的位置，则可以采用如下的表达方法：cells(i,j).offset(0,3)=“单元格内容” 。

   SheetA.Cells(i, sC) = zCD
  SheetA.Cells(i, sC).Offset(0, 5) = sLB & "类"

十进制 1/3=0.3333333333333,无穷无尽。EXCEL数值有二进制存储也存在“除不尽的问题”，用有限的位数表达无限的循环小数，必然会产生舍入误差。如a=2.3 表达成了 b=2.2999999999999999999999999…,如此情况下，我们若要比较两个数是否相同，肯定会有 2.3<>2.1999999…,为了避免这种情况，若确认我们要比较的数只有1位小数，我们可以采取如下的方法：

int(a*10+0.001) 是否等于 int(b*10+0.001)  

以此类推，若比较2位小数，则是，int(a*100+0.0001),后面的0.0001多写几位0也无妨！