VBA批量标色&删除两列重复值

By Mejias

业务要求如下:

Keywords_record为原始表,LIST_TO_UPDATE开始时为空白表。

需要实现复制粘贴“KEYWORDS_RECORD”表到“LIST_TO_UPDATE”表,在第二张表标记B列与C列重复的值单元格为红色,C列与B列单元格重复值为黄色。

要使用VBA合并两列删除重复项,你可以编写一个简单的宏来实现。首先,打开Excel文件并按下ALT + F11进入VBA编辑器界面。在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界面。运行这个宏,你将看到你的两列已经被成功合并并删除了重复项。记得在运行宏之前保存你的工作簿,以防意外发生。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值