已知行和列，如何获得Address

ningyong58

row1 = 2: row2 = 5
col1 = 3: col2 = 8
for ii = row1 to row2
  for jj = col2 to col2
    sheet1.cells(ii,jj) = ii*jj
  next jj
next ii

目标需求

row1 = 2 : row2 = 5
col1 =3: col2 = 8
　range address - C2:H5


现在采用的方法是
Debug.Print Sheet1.Cells(row1, col1).Address(0, 0)
Debug.Print Sheet1.Cells(row2, col2).Address(0, 0)

请问各位大侠，还有什么其它方法可操作．

　　

蓝桥玄霜

Debug.Print Sheet1.Range(Cells(row1, col1),Cells(row2, col2)).Address(0, 0)

ningyong58

原帖由 蓝桥玄霜 于 2009-12-9 20:35 发表
Debug.Print Sheet1.Range(Cells(row1, col1),Cells(row2, col2)).Address(0, 0)

谢谢．目标实现


'''Produce Arc
Function RangeGetArc(cadApp As AcadApplication, sSet As AcadSelectionSet) As Variant
  '''
  If sSet.Count <= 0 Then
    Exit Function
  End If
  ''
  Dim colNo, rowNo, oArc As AcadArc
关键语句

    rowNo = .Range("A65366").End(xlUp).Row + 1
    colNo = .Range("A1").End(xlToLeft).Column  
  With Sheets("Arc")
    rowNo = .Range("A65366").End(xlUp).Row + 1
    'Sheet1.Range.End(xlToRight).Column
    colNo = .Range("A1").End(xlToLeft).Column
    Debug.Print
    colNo = .Range("A1").End(xlToRight).Column
    Debug.Print
   
    For ii = 0 To sSet.Count - 1
      Set oArc = sSet(ii)
      .Cells(ii + rowNo, 1) = "'" & oArc.Handle
      
      For jj = 0 To 2
        .Cells(ii + rowNo, 2 + jj) = Round(oArc.Center(jj), 8)
      Next jj
      .Cells(ii + rowNo, 5) = Round(oArc.Radius, 8)
      .Cells(ii + rowNo, 6) = Round(oArc.StartAngle, 8)
      .Cells(ii + rowNo, 7) = Round(oArc.EndAngle, 8)
      .Cells(ii + rowNo, 8) = oArc.Layer
    Next ii
  End With
  RangeGetArc = Sheets("Arc").Range(Cells(rowNo, 1), Cells(rowNo + sSet.Count - 1, colNo)).Address(0, 0)  Debug.Print
End Function