R1C1格式能否赋值给Range

ningyong58

通常模式 Set rr = Range("A1:E3")
现有大量的R1C1
R2C4:R3C4
R2C5:R4C5
R4C4
R5C1:R7C1
R5C2
问
Set rr = Range(？？)如何写，能实现
R2C4:R3C4赋值给Range.

3x3eyes

……还真不知道，留个名，哈哈

lb_bn

有转化方法可用。

msgbox range(application.convertformula("R1C1",xlr1c1,xla1)).value

ningyong58

原帖由 lb_bn 于 2009-12-19 01:20 发表
有转化方法可用。

msgbox range(application.convertformula("R1C1",xlr1c1,xla1)).value

谢谢回复，要是用转化意义不大．
目标需采集原Sheet的Range数据内容
  For Each Rr In oRange
　    Sheet2.Cells(rowNo, 1) = Rr.Address(2, 3, xlR1C1)
  Next Rr
Rr.Address(2, 3, xlR1C1)存到一个数据文件后
现在采用的方法是Range(ii,jj) = "赋值数据"．
想用R1C1，代替Range(ii,jj)，--------
range(application.convertformula("R1C1",xlr1c1,xla1)).value 看来实用性不强．

　　

lb_bn

哦，没看明白。
R1C1:R10C120
这样的也可以用上面方法直接转换。

[ 本帖最后由 lb_bn 于 2009-12-19 10:43 编辑 ]

masterexcel

直接用cells解决

ningyong58

Sub lss()
  Dim Rr As Range
  Set Rr = Range(Application.ConvertFormula("R1C1", xlR1C1, xlA1))
  Debug.Print Rr.Address
  Debug.Print
End Sub

输出结果为----------$A$1与目标需注相对引用有差距，需要继续消化理解．
要是绝对引用
  Sheet2.Cells(rowNo, 1) = Rr.Address(2, 3, xlR1C1)这步就多余了．

lb_bn

这个方法还有可选参数，楼主不妨研究一下。