在Range("D:E")中，定义相对区域的合并单元格．

ningyong58

通过单元格合并的工作法是
Set oRange = Range("D2:E16")
oRange.MergeCells = True

在此讨论的目标需求是先定义一个单元格,Range("D2:E16")
在这个已经定义好的单元格中，再定义一个区域为合并单元格．
Set Rr = oRange(3, 4)-------成立，
再以oRange 的起点为依据，
'Set Rr = oRange(Cells(2, 1), Cells(3, 4))--------不成立
请问各位大侠有何高招．


Sub lls()
  Dim oRange As Range
  Set oRange = Range("D2:E16")
  Dim Rr As Range
  'Set Rr = oRange(Cells(2, 1), Cells(3, 4))
  Set Rr = oRange(3, 4)
  ss = Rr
  Rr.MergeCells = True
  Rr = 669
End Sub

蓝桥玄霜

Set Rr = oRange(3, 4)相当于Set Rr = oRange.Offset(3, 4)
建议用 ：
Set Rr = oRange.Offset(2, 1).Resize(3, 4)

ningyong58

原帖由 蓝桥玄霜 于 2009-12-20 09:55 发表
Set Rr = oRange(3, 4)相当于Set Rr = oRange.Offset(3, 4)
建议用 ：
Set Rr = oRange.Offset(2, 1).Resize(3, 4)

谢谢，目标基本实现，还需要细化．
Sub lss()
  Dim oRange As Range, Rr As Range
  Set oRange = Range(Cells(13, 3), Cells(16, 4))
  'Debug.Print TypeName(oRange.Value)
  Set Rr = oRange.Offset(-2, 3).Resize(4, 2)
  Debug.Print oRange.Address, Rr.Address
  Rr.MergeCells = True
  ss = oRange: ss1 = Rr
End Sub