1. PingCode智库首页
  2. 百科

excel怎么用vba取两列不重复的值

Edit1 • • 百科

excel怎么用vba取两列不重复的值

在Excel中使用VBA取两列不重复的值

在Excel中，使用VBA取两列不重复的值，可以通过创建字典对象、遍历两列数据、将不重复的值存储到字典中、将字典中的值导出到新的列来实现。下面将详细介绍如何通过VBA代码实现这一操作。

一、创建字典对象

字典对象在VBA中是一个非常有用的数据结构，它可以存储键值对，并且键是唯一的，这使得它非常适合用于存储不重复的值。

首先，我们需要在VBA中创建一个字典对象。可以通过以下代码实现：

Dim dict As Object


Set dict = CreateObject("Scripting.Dictionary")

字典对象的创建是整个过程的基础，它为我们提供了一个存储不重复值的容器。

二、遍历两列数据

接下来，我们需要遍历两列数据，并将其中的每一个值添加到字典中。如果字典中已经存在该值，则不会重复添加。

Dim i As Long


Dim value As Variant


For i = 1 To LastRow


    value = Cells(i, 1).Value


    If Not dict.exists(value) Then


        dict.Add value, Nothing


    End If


    value = Cells(i, 2).Value


    If Not dict.exists(value) Then


        dict.Add value, Nothing


    End If


Next i

在这段代码中，我们假设数据在第一列和第二列，并且通过循环遍历每一行的数据。LastRow是数据的最后一行行号，可以通过以下代码获取：

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

三、将字典中的值导出到新的列

最后，我们需要将字典中的不重复值导出到新的列中。假设我们将结果存储在第三列，可以通过以下代码实现：

Dim outputRow As Long


outputRow = 1


For Each key In dict.keys


    Cells(outputRow, 3).Value = key


    outputRow = outputRow + 1


Next key

通过遍历字典中的键，将每一个键的值写入到第三列的相应单元格中。

四、完整的VBA代码

将上述步骤整合到一个完整的VBA代码中：

Sub GetUniqueValues()


    Dim dict As Object


    Set dict = CreateObject("Scripting.Dictionary")


    Dim LastRow As Long


    LastRow = Cells(Rows.Count, 1).End(xlUp).Row


    Dim i As Long


    Dim value As Variant


    For i = 1 To LastRow


        value = Cells(i, 1).Value


        If Not dict.exists(value) Then


            dict.Add value, Nothing


        End If


        value = Cells(i, 2).Value


        If Not dict.exists(value) Then


            dict.Add value, Nothing


        End If


    Next i


    Dim outputRow As Long


    outputRow = 1


    For Each key In dict.keys


        Cells(outputRow, 3).Value = key


        outputRow = outputRow + 1


    Next key


End Sub

五、优化与扩展

1. 检查空值

在处理数据时，可能会遇到空值。为了确保代码的健壮性，可以在添加值到字典之前检查是否为空：

If Not IsEmpty(value) And Not dict.exists(value) Then


    dict.Add value, Nothing


End If

2. 动态选择列

如果需要动态选择列，可以通过参数传递列号：

Sub GetUniqueValues(col1 As Long, col2 As Long, outputCol As Long)


    Dim dict As Object


    Set dict = CreateObject("Scripting.Dictionary")


    Dim LastRow As Long


    LastRow = Cells(Rows.Count, col1).End(xlUp).Row


    Dim i As Long


    Dim value As Variant


    For i = 1 To LastRow


        value = Cells(i, col1).Value


        If Not IsEmpty(value) And Not dict.exists(value) Then


            dict.Add value, Nothing


        End If


        value = Cells(i, col2).Value


        If Not IsEmpty(value) And Not dict.exists(value) Then


            dict.Add value, Nothing


        End If


    Next i


    Dim outputRow As Long


    outputRow = 1


    For Each key In dict.keys


        Cells(outputRow, outputCol).Value = key


        outputRow = outputRow + 1


    Next key


End Sub

调用该子程序时，可以传递列号，例如：

Call GetUniqueValues(1, 2, 3)

3. 用户输入列号

为了提高用户体验，可以通过输入框让用户输入列号：

Sub GetUniqueValuesFromUserInput()


    Dim col1 As Long, col2 As Long, outputCol As Long


    col1 = InputBox("请输入第一列的列号:")


    col2 = InputBox("请输入第二列的列号:")


    outputCol = InputBox("请输入输出列的列号:")


    GetUniqueValues col1, col2, outputCol


End Sub

以上就是关于在Excel中使用VBA取两列不重复值的详细步骤和代码示例。通过创建字典对象、遍历数据、检查空值和导出结果，可以实现这一功能，并且代码可扩展性强，能够适应不同场景的需求。

相关问答FAQs：

FAQ 1: 如何使用VBA在Excel中获取两列不重复的值？

问题： 我想在Excel中使用VBA编程，获取两列中不重复的值，应该怎么做？

回答：

  1. 首先，你需要打开Excel并按下 ALT + F11 来打开VBA编辑器。
  2. 然后，在VBA编辑器中，选择 插入 -> 模块，以创建一个新的VBA模块。
  3. 在新的VBA模块中，你可以编写以下代码来获取两列不重复的值：
Sub GetUniqueValues()
    Dim ws As Worksheet
    Dim rng1 As Range, rng2 As Range
    Dim cell1 As Range, cell2 As Range
    Dim uniqueValues As Collection
    
    Set ws = ThisWorkbook.ActiveSheet
    Set rng1 = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    Set rng2 = ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    Set uniqueValues = New Collection
    
    On Error Resume Next
    For Each cell1 In rng1
        uniqueValues.Add cell1.Value, CStr(cell1.Value)
    Next cell1
    
    For Each cell2 In rng2
        uniqueValues.Add cell2.Value, CStr(cell2.Value)
    Next cell2
    
    On Error GoTo 0
    
    For Each item In uniqueValues
        Debug.Print item
    Next item
End Sub
  1. 运行以上代码，你将在VBA编辑器的 立即窗口 中看到两列中的不重复值。

希望以上信息对你有所帮助。如果有任何其他问题，请随时提问！

FAQ 2: 如何使用VBA在Excel中获取两列不重复的值并将其显示在另一列中？

问题： 我想使用VBA编程，在Excel中获取两列不重复的值，并将这些值显示在另一列中，应该如何实现？

回答：

  1. 首先，打开Excel并按下 ALT + F11 来打开VBA编辑器。
  2. 在VBA编辑器中，选择 插入 -> 模块，以创建一个新的VBA模块。
  3. 在新的VBA模块中，你可以编写以下代码来获取两列不重复的值并将其显示在另一列中：
Sub GetUniqueValues()
    Dim ws As Worksheet
    Dim rng1 As Range, rng2 As Range
    Dim cell1 As Range, cell2 As Range
    Dim uniqueValues As Collection
    Dim outputRange As Range
    Dim i As Integer
    
    Set ws = ThisWorkbook.ActiveSheet
    Set rng1 = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    Set rng2 = ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    Set uniqueValues = New Collection
    i = 1
    
    On Error Resume Next
    For Each cell1 In rng1
        uniqueValues.Add cell1.Value, CStr(cell1.Value)
    Next cell1
    
    For Each cell2 In rng2
        uniqueValues.Add cell2.Value, CStr(cell2.Value)
    Next cell2
    
    On Error GoTo 0
    
    For Each item In uniqueValues
        ws.Cells(i, 3).Value = item
        i = i + 1
    Next item
End Sub
  1. 运行以上代码，你将在Excel中的第三列中看到两列不重复的值。

希望以上信息对你有所帮助。如果有任何其他问题，请随时提问！

FAQ 3: 如何使用VBA在Excel中获取两列不重复的值并计算其总和？

问题： 我想使用VBA编程，在Excel中获取两列不重复的值，并计算这些值的总和，应该如何实现？

回答：

  1. 首先，打开Excel并按下 ALT + F11 来打开VBA编辑器。
  2. 在VBA编辑器中，选择 插入 -> 模块，以创建一个新的VBA模块。
  3. 在新的VBA模块中，你可以编写以下代码来获取两列不重复的值并计算其总和：
Sub GetUniqueValuesAndSum()
    Dim ws As Worksheet
    Dim rng1 As Range, rng2 As Range
    Dim cell1 As Range, cell2 As Range
    Dim uniqueValues As Collection
    Dim sum As Double
    
    Set ws = ThisWorkbook.ActiveSheet
    Set rng1 = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    Set rng2 = ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    Set uniqueValues = New Collection
    sum = 0
    
    On Error Resume Next
    For Each cell1 In rng1
        uniqueValues.Add cell1.Value, CStr(cell1.Value)
    Next cell1
    
    For Each cell2 In rng2
        uniqueValues.Add cell2.Value, CStr(cell2.Value)
    Next cell2
    
    On Error GoTo 0
    
    For Each item In uniqueValues
        sum = sum + item
    Next item
    
    MsgBox "总和为: " & sum
End Sub
  1. 运行以上代码，你将会看到一个消息框显示两列不重复值的总和。

希望以上信息对你有所帮助。如果有任何其他问题，请随时提问！

文章包含AI辅助创作，作者：Edit1，如若转载，请注明出处：https://docs.pingcode.com/baike/4561876

赞 (0)
Edit1Edit1
免费注册
电话联系

4008001024

微信咨询
微信咨询
返回顶部