vba数组去除重复数据

可以使用字典对象来去除重复数据，具体实现代码如下：

Sub RemoveDuplicates()
    Dim arr As Variant
    Dim dict As Object
    Dim i As Long
    
    '将数组赋值给变量
    arr = Range("A1:A10").Value
    
    '创建字典对象
    Set dict = CreateObject("Scripting.Dictionary")
    
    '遍历数组，将不重复的数据添加到字典中
    For i = LBound(arr) To UBound(arr)
        If Not dict.exists(arr(i, 1)) Then
            dict.Add arr(i, 1), ""
        End If
    Next i
    
    '将字典中的数据输出到新的数组中
    ReDim arr(1 To dict.Count, 1 To 1)
    i = 1
    For Each key In dict.keys
        arr(i, 1) = key
        i = i + 1
    Next key
    
    '输出结果到新的单元格中
    Range("B1").Resize(dict.Count, 1).Value = arr
End Sub

相关问题

vba数组放oracle查询的数据

可以使用ADO（ActiveX Data Objects）来连接Oracle数据库并执行查询，将查询结果存储在VBA数组中。以下是一个简单的示例代码：

Sub QueryOracle()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim arrData() As Variant
    Dim i As Long, j As Long
    
    Set conn = New ADODB.Connection
    
    '连接Oracle数据库
    conn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=YourDataSource;User ID=YourUserID;Password=YourPassword;"
    conn.Open
    
    '执行查询
    Set rs = conn.Execute("SELECT * FROM YourTable")
    
    '将查询结果存储在数组中
    If Not rs.EOF Then
        rs.MoveLast
        rs.MoveFirst
        arrData = rs.GetRows(rs.RecordCount)
    End If
    
    '关闭连接
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
    
    '将数组中的数据输出到Excel工作表
    For i = LBound(arrData, 2) To UBound(arrData, 2)
        For j = LBound(arrData, 1) To UBound(arrData, 1)
            Cells(j + 1, i + 1).Value = arrData(j, i)
        Next j
    Next i
End Sub

在此示例中，我们使用了ADODB.Connection和ADODB.Recordset对象来连接Oracle数据库并执行查询。查询结果存储在名为arrData的VBA数组中，然后输出到Excel工作表中。请注意，在连接Oracle数据库时，需要更改连接字符串中的数据源、用户名和密码以匹配您的环境。

vba 数组

VBA中的数组是一种数据类型，用于存储一系列相同类型的值。可以使用数组来更有效地管理大量数据。下面是一些常见的VBA数组操作：

1. 声明数组：使用“Dim”语句声明数组。例如，以下语句声明一个名为“myArray”的整数数组，它有5个元素。

`Dim myArray(4) As Integer`

2. 赋值数组元素：可以使用索引号将值分配给数组元素。例如，以下语句将第二个元素赋值为10。

`myArray(1) = 10`

3. 访问数组元素：可以使用索引号访问数组元素。例如，以下语句将第一个元素的值赋给变量“x”。

`x = myArray(0)`

4. 遍历数组：可以使用循环遍历数组中的所有元素。例如，以下代码使用For循环遍历数组中的所有元素，并将它们相加。

   Dim total As Integer
   For i = 0 To 4
       total = total + myArray(i)
   Next i

5. 动态数组：可以使用“ReDim”语句重新调整数组的大小。例如，以下语句将数组的大小增加到10个元素。

`ReDim Preserve myArray(9)`

以上是一些常见的VBA数组操作。通过使用数组，可以更有效地处理大量数据，提高程序的效率。