Question

Excel在VB代码中如何返回当前单元格的行值和列值?

Excel在VB代码中如何返回当前单元格的行值和列值?

Answer 1

VBA代码如下：
Sub RC()
R=Selection.rows.row
ActiveSheet.Range("a1).Value =R '选择单元格的第一行行号 送入A1
C=Selection.Columns.Column
ActiveSheet.Range("a2").Value =C '选择单元格的第一列列号 送入A2
End Sub