14 
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 对象，因此它可能会起作用我只是对实现感到模糊。

谢谢！

4

2 回答 2

15

这是你想要的 ？

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
于 2013-10-01T01:25:05.067 回答
13 
Dim f as Range

Set f=ActiveSheet.Cells.Find(...)

If Not f Is Nothing then
    msgbox "Row=" & f.Row & vbcrlf & "Column=" & f.Column
Else
    msgbox "value not found!"
End If
于 2013-09-30T20:32:23.717 回答