如何获得ｅｘｃｅｌ里用鼠标选定的所有单元格的位置（行号和列号）

fenlie123

如何获得ｅｘｃｅｌ里用鼠标选定的所有单元格的位置（行号和列号）

andyji

在需要的sheet中加入下面的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Target.Offset(0, 0) = Target.Row & "," & Target.Column
   
End Sub

得到的结果是在相应的单元格中自动输入  行号，列号

andyji

只要鼠标点击某个单元格就能自动得到行号和列号，是需要这样的结果吗？

星空再现

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Rng As Range
    For Each Rng In Target
        MsgBox "Row:" & Rng.Row & ";Col:" & Rng.Column
    Next
End Sub

andyji

高手，我那个只适用于单选某个单元格，你的可以成片选择，厉害。。。