vba合并两列并删除重复项

要使用VBA合并两列并删除重复项，你可以编写一个简单的宏来实现。首先，打开Excel文件并按下ALT + F11进入VBA编辑器界面。在VBA编辑器中，在你的工作簿中的“模块”中创建一个新的模块。然后，在这个新模块中编写下面的VBA代码：

Sub 合并列并删除重复项()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") '将“Sheet1”替换为你的工作表名称
    
    '定义两个要合并的列的范围
    Dim col1 As Range
    Set col1 = ws.Range("A1:A10") '将“A1:A10”替换为你第一列的范围
    Dim col2 As Range
    Set col2 = ws.Range("B1:B10") '将“B1:B10”替换为你第二列的范围
    
    '合并两列
    Dim i As Integer
    For i = 1 To col1.Rows.Count
        ws.Cells(i, 3) = col1.Cells(i, 1) & " " & col2.Cells(i, 1)
    Next i
    
    '删除重复项
    ws.Range("C1:C10").RemoveDuplicates Columns:=1, Header:=xlNo '将“C1:C10”替换为你合并后的列的范围
End Sub

在这个代码中，我们首先定义了要合并的两列的范围，然后使用一个循环来逐行将它们合并到第三列中。接着，我们使用RemoveDuplicates方法来删除合并后列中的重复项。

最后，关闭VBA编辑器并返回到Excel界面。运行这个宏，你将看到你的两列已经被成功合并并删除了重复项。记得在运行宏之前保存你的工作簿，以防意外发生。