vba 获取不连续的单元格值

要获取不连续的单元格值，可以使用VBA中的Range对象的Value属性。您可以使用逗号分隔的多个单元格地址来引用不连续的单元格范围。以下是一个示例代码：

Sub GetDiscontinuousRangeValues()

    Dim rng As Range
    Set rng = Range("A1,B2,C3:E5,G8")

    Dim cell As Range
    For Each cell In rng
        Debug.Print cell.Value
    Next cell

End Sub

上述代码将获取A1、B2、C3到E5以及G8单元格的值，并在Immediate Window窗口中输出这些值。您可以根据需要修改代码以符合您的具体需求。

相关问题

vba excel 获取单元格的值

在VBA Excel中，可以使用Range对象的Value属性来获取单元格的值。例如，要获取A1单元格的值，可以使用以下代码：

Dim cellValue As Variant
cellValue = Range("A1").Value

在这个例子中，将A1单元格的值存储在变量cellValue中。你可以根据需要将其用于其他操作或输出。

引用\[3\]中提到，单元格对象的Value属性为单元格实际存储的值。当单元格中存有公式时，Value属性为公式运行后的结果值。因此，如果A1单元格中包含公式，那么获取的值将是公式运行后的结果。

请注意，这只是获取单个单元格的值的方法。如果你需要获取多个单元格的值，可以使用循环结构来遍历单元格范围并逐个获取值，就像引用\[1\]和引用\[2\]中的示例代码一样。
#### 引用[.reference_title]
- *1* *2* [excel中VBA获取指定单元格内容](https://blog.csdn.net/u010719791/article/details/121526472)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
- *3* [Excel 2010 VBA 入门 026 读取单元格的值和显示的值](https://blog.csdn.net/ngbshzhn/article/details/115398153)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]

vba 在不打开表格的情况下获取不连续的不同工作薄单元格值

要在不打开工作簿的情况下获取不连续的不同工作表单元格的值，可以使用VBA中的`Workbook`对象和`Range`对象的Value属性。以下是一个示例代码：

Sub GetDiscontinuousRangeValues()

    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\example.xlsx") '打开工作簿

    Dim rng1 As Range
    Set rng1 = wb.Worksheets("Sheet1").Range("A1,B2") '获取Sheet1中的A1和B2单元格的值

    Dim rng2 As Range
    Set rng2 = wb.Worksheets("Sheet2").Range("C3:E5,G8") '获取Sheet2中的C3到E5和G8单元格的值

    Debug.Print rng1.Value '输出Sheet1中的A1和B2单元格的值
    Debug.Print rng2.Value '输出Sheet2中的C3到E5和G8单元格的值

    wb.Close SaveChanges:=False '关闭工作簿，不保存更改

End Sub

上述代码将获取指定工作簿中Sheet1的A1和B2单元格，以及Sheet2中的C3到E5和G8单元格的值，并在Immediate Window窗口中输出这些值。请注意，为了获取不同工作表中的值，您需要在代码中指定正确的工作表名称和单元格地址。在代码执行完毕后，工作簿将自动关闭且不保存更改。