在VBA中,可以通过Application.Selection对象获取当前选中的单元格或单元格区域。如果你想获取第一个选中单元格的坐标,可以使用Application.Selection.Address属性。

vbaSub GetFirstCellAddress()
    Dim selectedRange As Range
    Set selectedRange = Application.Selection
    
    ' 获取第一个选中单元格的地址Dim firstCellAddress As String
    firstCellAddress = selectedRange.Cells(1, 1).Address
End Sub

我们使用selectedRange.Cells(1, 1).Address获取第一个选中单元格的地址。

需要注意的是,如果用户选择了多个不连续的单元格或区域,这个方法可能无法正确工作。