Excel VBA -将单元格值添加到数组

Excel VBA是一种用于自动化Excel任务的编程语言，它可以通过编写宏（Macro）来扩展Excel的功能。将单元格值添加到数组是一种常见的需求，可以通过以下代码来实现：

Sub AddCellValuesToArray()
    Dim arr() As Variant
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    
    '指定要读取的单元格范围
    Set rng = Range("A1:A10")
    
    '将单元格值添加到数组
    For Each cell In rng
        i = i + 1
        ReDim Preserve arr(1 To i)
        arr(i) = cell.Value
    Next cell
    
    '在Immediate窗口打印数组内容
    For i = 1 To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub

上述代码中，我们首先声明了一个变量arr()作为数组来存储单元格值。然后，使用Range("A1:A10")指定要读取的单元格范围。接下来，通过一个循环遍历该范围中的每个单元格，将单元格的值依次添加到数组中。为了实现动态增长的数组，我们使用ReDim Preserve语句来调整数组的大小。最后，我们在Immediate窗口打印数组的内容。

这种将单元格值添加到数组的方法可以用于各种情况，比如数据分析、批量处理等。

推荐腾讯云的产品和产品介绍链接地址：

• 腾讯云云服务器（CVM）：提供弹性计算能力，适用于各类应用场景。产品介绍链接
• 腾讯云对象存储（COS）：提供安全可靠、低成本、高并发的对象存储服务，适用于存储、备份和归档等场景。产品介绍链接
• 腾讯云数据库（TencentDB）：提供关系型数据库和NoSQL数据库服务，具备高可用、弹性扩展等特性。产品介绍链接
• 腾讯云人工智能平台（AI）：提供丰富的人工智能算法和开发工具，帮助用户快速构建人工智能应用。产品介绍链接
• 腾讯云物联网（IoT）：提供完整的物联网解决方案，包括设备接入、数据采集、设备管理等功能。产品介绍链接
• 腾讯云视频处理（VOD）：提供音视频处理、存储、分发等一站式解决方案，适用于在线教育、直播等场景。产品介绍链接
• 腾讯云区块链服务（BCS）：提供灵活易用的区块链平台，帮助用户构建和部署区块链应用。产品介绍链接
• 腾讯云元宇宙服务（Metaverse）：提供全栈元宇宙解决方案，包括场景建模、跨平台交互、数字货币等功能。产品介绍链接