excel vba从selection.address获取行、单元格值

excel

使用excel VBA可以轻松地获取选定区域的行号和单元格的值。通过Selection.Address属性，我们可以获取选定区域的地址。在这篇文章中，我们将探讨如何使用这一属性来获取行号和单元格的值，并提供一些示例代码来说明其用法。

获取选定区域的行号

要获取选定区域的行号，我们可以使用Selection对象的Row属性。该属性返回选定区域的第一行的行号。以下是一个简单的示例代码：

VBA
Sub GetSelectedRows()
    Dim selectedRange As Range
    Set selectedRange = Selection
    
    Dim firstRow As Long
    firstRow = selectedRange.Row
    
    MsgBox "选定区域的第一行的行号是：" & firstRow
End Sub

在这个示例中，我们首先将选定区域赋值给一个Range对象selectedRange。然后，我们使用Row属性获取selectedRange的第一行的行号，并将其存储在变量firstRow中。最后，我们使用MsgBox函数显示一个消息框，其中包含选定区域的第一行的行号。

获取选定区域中单元格的值

要获取选定区域中单元格的值，我们可以使用Range对象的Value属性。该属性返回一个包含选定区域中所有单元格值的数组。以下是一个示例代码：

VBA
Sub GetSelectedCellValues()
    Dim selectedRange As Range
    Set selectedRange = Selection
    
    Dim cellValues As Variant
    cellValues = selectedRange.Value
    
    Dim cell As Variant
    For Each cell In cellValues
        MsgBox "单元格的值是：" & cell
    Next cell
End Sub

在这个示例中，我们首先将选定区域赋值给一个Range对象selectedRange。然后，我们使用Value属性获取selectedRange中所有单元格的值，并将其存储在变量cellValues中。接下来，我们使用For Each循环遍历cellValues数组中的每个元素，并使用MsgBox函数显示一个消息框，其中包含每个单元格的值。

示例代码

下面是一个完整的示例代码，演示了如何获取选定区域的行号和单元格的值：

VBA
Sub GetSelectedRowsAndCellValues()
    Dim selectedRange As Range
    Set selectedRange = Selection
    
    Dim firstRow As Long
    firstRow = selectedRange.Row
    
    MsgBox "选定区域的第一行的行号是：" & firstRow
    
    Dim cellValues As Variant
    cellValues = selectedRange.Value
    
    Dim cell As Variant
    For Each cell In cellValues
        MsgBox "单元格的值是：" & cell
    Next cell
End Sub

在这个示例中，我们首先将选定区域赋值给一个Range对象selectedRange。然后，我们使用Row属性获取selectedRange的第一行的行号，并将其存储在变量firstRow中。接下来，我们使用MsgBox函数显示一个消息框，其中包含选定区域的第一行的行号。

然后，我们使用Value属性获取selectedRange中所有单元格的值，并将其存储在变量cellValues中。接下来，我们使用For Each循环遍历cellValues数组中的每个元素，并使用MsgBox函数显示一个消息框，其中包含每个单元格的值。

使用excel VBA的Selection.Address属性，我们可以轻松地获取选定区域的行号和单元格的值。通过使用Row属性，我们可以获取选定区域的第一行的行号。通过使用Value属性，我们可以获取选定区域中所有单元格的值。这些功能为我们的数据处理提供了便利，使我们能够更好地理解和分析我们的数据。

希望本文对你有所帮助，如果你有任何问题，请随时留言。