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`。然后，我们分别将三个不连续单元格的值赋给数组的不同元素。这样，我们就可以通过数组来访问这三个单元格的值了。

相关问题

vba根据数组里特定字符串在单元格归类

可以使用 VBA 的循环语句和条件语句来实现根据数组里特定字符串在单元格归类的功能。具体实现步骤如下：

1. 定义一个字符串数组，存储需要归类的字符串。

2. 通过 VBA 的循环语句遍历需要归类的单元格，将单元格的值与字符串数组中的每个元素进行比较。

3. 如果单元格的值与字符串数组中的某个元素相等，则将该单元格的地址记录到相应的分类变量中，否则将其记录到其他变量中。

4. 最后可以将分类结果输出到相应的单元格或者弹出消息框。

下面是一个示例代码，该代码将 A1:A10 区域内的单元格按照 "A", "B", "C" 三种字符串进行归类：

Sub ClassifyCells()
    '定义需要归类的字符串数组
    Dim arr() As String
    arr = Split("A,B,C", ",")
    
    '定义分类变量
    Dim classA As String, classB As String, classC As String, other As String
    classA = ""
    classB = ""
    classC = ""
    other = ""
    
    '遍历单元格并进行归类
    For Each cell In Range("A1:A10")
        If cell.Value = arr(0) Then
            classA = classA & cell.Address & ","
        ElseIf cell.Value = arr(1) Then
            classB = classB & cell.Address & ","
        ElseIf cell.Value = arr(2) Then
            classC = classC & cell.Address & ","
        Else
            other = other & cell.Address & ","
        End If
    Next cell
    
    '输出分类结果
    Range("B1").Value = "Class A: " & Left(classA, Len(classA) - 1)
    Range("B2").Value = "Class B: " & Left(classB, Len(classB) - 1)
    Range("B3").Value = "Class C: " & Left(classC, Len(classC) - 1)
    Range("B4").Value = "Other: " & Left(other, Len(other) - 1)
End Sub

在上面的代码中，使用了 Split 函数将字符串 "A,B,C" 拆分成一个字符串数组，方便后续的比较。然后使用了 For Each 循环语句遍历了需要归类的单元格，并使用了 If 条件语句判断单元格的值与字符串数组中的元素是否相等。最后将分类结果输出到了 B1:B4 区域的单元格中。

vba 提取单元格字段

可以使用 VBA 中的 Split 函数来提取单元格中的字段。Split 函数将文本字符串分成一个字符串数组，使用指定的分隔符分隔字符串。

例如，假设我们有一个单元格 A1，其中包含以下文本字符串：John,Smith,25。要从该单元格中提取字段并将其存储在变量中，可以使用以下代码：

Dim name As String
Dim surname As String
Dim age As Integer

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

Dim fields As Variant
fields = Split(cellValue, ",")

name = fields(0)
surname = fields(1)
age = fields(2)

这将提取单元格 A1 中的三个字段，并将它们存储在 name、surname 和 age 变量中。Split 函数使用逗号作为分隔符将单元格文本字符串分成一个字符串数组。数组的第一个元素是名字，第二个元素是姓氏，第三个元素是年龄。可以使用数组索引访问每个元素，并将它们存储在相应的变量中。