首页vba把三个不连续单元格加入到数组

vba把三个不连续单元格加入到数组

时间: 2023-09-20 12:10:02 浏览: 148

数组 VBA Excel

数组 VBA Excel 数组是 VBA 编程中非常重要的一部分，它可以储存大量数据，并且可以进行各种操作。今天我们将学习数组在 VBA 中的基础应用方法。一、数组入门数组其实就是一组数字的集合，可以储存多个值。我们可以使用 Dim 语句来声明一个数组，例如:`Dim arr(1 To 10)`,这将创建一个可以存储 10 个数的数组空间。我们可以使用循环向数组中添加数值，例如： ```vb Sub 数组入门() Dim x As Integer Dim arr(1 To 10) For x = 1 To 10 arr(x) = x Next x MsgBox arr(5) '显示数组内第 5 个数字 End Sub ``` 二、了解数组的维数数组可以是一维的，也可以是二维的。二维数组是由多行多列组成的，例如:`arr(1 To 10, 1 To 3)` 就是一个 10 行 3 列的数组空间。 ```vb Sub 数组示例() Dim x As Long, y As Long Dim arr(1 To 10, 1 To 3) For x = 1 To 4 For y = 1 To 3 arr(x, y) = Cells(x, y) Next y Next x MsgBox arr(4, 3) '根据提供的行数和列数显示数组 arr(1, 2) = "我改一下试试" MsgBox arr(1, 2) End Sub ``` 三、从单元格中取出数据我们可以使用 Variant 类型来声明一个数组，然后使用 Range 对象来将单元格数据装入数组中。 ```vb Sub 例子() Dim arr As Variant arr = Range("A1:C7") MsgBox arr(1, 1) '读取数组中第 1 行第 1 列的数值 End Sub ``` 四、数组导入我们可以使用数组来导入单元格数据。例如： ```vb Sub test() Dim arr As Variant arr = Range("A1:C7") Range("D1:F7") = arr End Sub ``` 数组是 VBA 编程中非常重要的一部分，它可以储存大量数据，并且可以进行各种操作。我们可以使用数组来实现各种数据处理任务。

你可以使用数组变量来存储三个不连续单元格的值，以下是一个示例代码： ``` Sub AddToArr() Dim arr(1 To 3) As Variant ' 定义一个包含三个元素的数组 arr(1) = Range("A1").Value ' 将 A1 单元格的值赋给数组的第一个元素 arr(2) = Range("B3").Value ' 将 B3 单元格的值赋给数组的第二个元素 arr(3) = Range("D5").Value ' 将 D5 单元格的值赋给数组的第三个元素 End Sub ``` 在这个示例代码中，我们首先定义了一个包含三个元素的数组变量 `arr`。然后，我们分别将三个不连续单元格的值赋给数组的不同元素。这样，我们就可以通过数组来访问这三个单元格的值了。

阅读全文