Range(oRStr)中的oRStr只能是xlA1吗?

ningyong58

oRStr = "A1:D3"
Set oRange = Range(oRStr)---成立
而
oRStr=＂Ｃells(1,1),Ｃells(3,4)＂
Set oRange = Range(oRStr)---不成立
问题提出
Range(oRStr)　-----　Range(oRStr)中的oRStr只能是xlA1吗??

coby001

Range(Cells(1,1),Cells(3,4))


R1C1 的样式 要用 ConvertFormula 方法转换为A1样式~

ningyong58

Function RcMergeCells(oSheet, oRStr As String, rowNo, colNo) As Range
  ''
  Dim Arr, Nn(1), Cc(1)
  Arr = Split(oRStr, ":")
  
  For ii = 0 To UBound(Arr)
    Nn(ii) = Val(Mid(Arr(ii), 2))
    Cc(ii) = Val(Mid(Arr(ii), InStr(Arr(ii), "C") + 1))
  Next ii
  If UBound(Arr) = 0 Then
    Nn(1) = Nn(0)
    Cc(1) = Cc(0)
  End If
  ''
  With Sheets(oSheet)
    Set RcMergeCells = .Range(.Cells(Nn(0) + rowNo, Cc(0) + colNo), .Cells(Nn(1) + rowNo, Cc(1) + colNo))
  End With
  If UBound(Arr) > 0 Then
    RcMergeCells.MergeCells = True
  End If
End Function

Sub llss()
  Dim oRStr As String
  ''
  
  For ii = 1 To Range("A65366").End(xlUp).Row
    Set Rr = RcMergeCells("Sheet7", Cells(ii, 1), 0, 0)
    Rr(1, 1) = Cells(ii, 2)
  Next ii
  ''
End Sub