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

For i = 1 To 20

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

  '' get the cell address

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



Next

上面是我的代码，用于搜索电子表格以查找特定字符串，然后选择它。我想使用以下方式获取单元格的地址Selection.Address在这种情况下，返回的内容类似于R[100]C。有没有办法可以将结果拆分为行和列值，以便我可以在代码中操作它们？例如，我想将 14 行添加到所选单元格行值中。我相信CellAddr将是一个 Range 对象，所以它可能有效，我只是对实现很模糊。

Thanks!

这是你想要的 ？

Sub getRowCol()

    Range("A1").Select ' example

    Dim col, row
    col = Split(Selection.Address, "$")(1)
    row = Split(Selection.Address, "$")(2)

    MsgBox "Column is : " & col
    MsgBox "Row is : " & row

End Sub