从selection.address获取行、单元格值的excel vba

For i = 1 To 20

  '' select the cell in question
  Cells.Find(...).Select

  '' get the cell address

  CellAddr = Selection.Address(False, False, xlR1C1) 



Next
For i = 1 To 20

  '' select the cell in questi