VBA中如何取得行号和列号如何选定这一范围的值

Posted 2023-05-18

VBA中如何取得行号和列号如何选定这一范围的值

Public Sub aaa()
'取得B5的 行号 和 列号 ，并写入数据
s = "B5"
r = Range(s).Row
c = Range(s).Column
Cells(r, c).Value = 5
'选定 A1:B5 单元格区域
Range(Cells(1, 1), Cells(r, c)).Select
'选定 A2:B5 单元格区域
Range(Range("A2"), Cells(r, c)).Select
'选定 A3:B5 单元格区域
Range([A3], Cells(r, c)).Select
'选定 B5右下方（含B5） 共2行3列 的 单元格区域，即 B5:D6
[B5].Resize(2, 3).Select
'……
End Sub 参考技术A 首先要知道行号、列号是已知还是未知的，知道行号、列号确定单元格以后，用CELLS就可以了，把下面的代码复制到VBA里面执行就看出来了：

Sub tt()
Dim a, b As Integer
a = InputBox("请输入行号")
b = InputBox("请输入列号")
Cells(a, b).Select
End Sub
这上面就是单元格选定。 参考技术B 首先你的问题问的不是很清楚 你的行号 列号是已知还是未知的？？不清楚
如果知道行号 列号确定单元格 很好实现用CELLS就可以了
你把下面的代码 复制到VBA里面执行就看出来了

Sub tt()
Dim a, b As Integer
a = InputBox("请输入行号")
b = InputBox("请输入列号")
Cells(a, b).Select
End Sub

这上面是简单的单元格选定 你问题可以再问的清楚点么 最好有个例子啥的本回答被提问者采纳 参考技术C sub Show()

debug.print selection.column,selection.row
selection.entirerow.select

end sub

VBA返回选中单元格区域的行数列数，以及活动单元格的行号和列号

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rows_count As Integer
    Dim rows_id As Integer
    Dim column_count As Integer
    Dim column_id As Integer
    column_count = Selection.Columns.Count ‘返回选择区域列数
    rows_id = ActiveCell.Row  ‘返回活动单元格的行号
    rows_count = Selection.Rows.Count  ‘返回选择区域的行数

    column_id = ActiveCell.Column  ‘返回活动单元格的列号
    MsgBox rows_count
    MsgBox column_count
    MsgBox column_id
    MsgBox rows_id
End Sub