Excel宏编程，给出2列进行去重合并

Sub 去重合并()
arr = Worksheets("sheet1").Range("D1").Clear  '选择D列作为存储列，保存最后去重合并的值
arr = Worksheets("sheet1").UsedRangeDim ARow As Long  'A列的行数
Dim BRow As Long  'B列的行数
ARow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row    '不带空格的行数
BRow = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
Set d = CreateObject("Scripting.Dictionary")   '设置个字典类型的容器
ReDim brr(1 To ARow + BRow, 1)          '设置个1维数组，1列，行数最大为A和B行数之和，不包括空格For n = 2 To ARow           '循环A列,从第二行开始，看你需要从哪个行开始
s = arr(n, 1)               '将从第二行开始的数据全部塞入s里
If d.Exists(s) Or s = "" Then  'd(s)是个计数器，如果s这个值不在字典d里，说明不重复，就加入brr()第一列中,如果单元格是空格就跳过'什么也不做Elsej = j + 1d(s) = 1brr(j, 1) = s
End If
NextFor n = 2 To BRow           '循环B列数据,从第二行开始，看你需要从哪个行开始
s = arr(n, 2)               '将从第二行开始的数据全部塞入s里
If d.Exists(s) Or s = "" Then 'd(s)是个计数器，如果s这个值不在字典d里，说明不重复，就加入brr()第一列中,如果单元格是空格就跳过
'什么也不做Elsej = j + 1d(s) = 1brr(j, 1) = sEnd If
Next
Worksheets("sheet1").[D2].Resize(UBound(brr), 1) = Application.Index(brr, 0, 2)
End Sub

Excel宏编程，给出2列进行去重合并相关推荐

Excel 中如何找出两列数据中不重复的记录
现在有两列数据,要在 A 列中找出 B 列中没有的记录,在 B 列中找出 A 列中没有的记录.现在和大家分享一下这个方法. 我们先用一个简单的例子看一下.现在有两列数据,可以是分别在不同的数据单(sh ...
c# 导入Excel 存到DataTable并进行行转列操作及合并DataTable相同行的值
由于公司需要就进行研究下并转化为代码: 原Excel数据配送センターコード店コード总计 L W H 9999 0951 8 55 45 60 9999 0952 8 55 45 60 9999 ...
Excel 宏编码实现，指定列的字符串截取
1.打开Excel凭证,启用宏,ALT+F11 或菜单"视图"-"宏-查看宏" Sub 分割字符串1() Dim i As Integer Dim b() A ...
Excel中如何找出两列数据中相同的数据，并且进行同行显示
使用VLOOKUP方法即可. =VLOOKUP(A2,Sheet1!B:C,1,0)的含义是: 在sheet1工作表的B:C区域的首列中查找等于a2的值,找到后,返回该区域的同行的值.最后的参数0表示 ...
初识Excel的JS环境WPS宏编程
谈论Excel宏编程,我们第一反应就是VBA,随着WPS引入了JS宏编程,在Excel里我们也可以编写js代码实现对excel的工作簿.工作表及单元格的操作.两者的实现方式,无所谓孰优孰劣,鉴于WPS ...
excel - 按钮编程 -脚本编程 - VBA
excel宏编程,指是VBA编程不是vbs. VBA代码运行,基于Excel. VBA中的某些代码,复制到VBS不一定好用. 反过来也是同样. ■VBS 代码运行,基于windows的"w ...
excel 宏把一个工作表按照某几个列拆分为多个工作表
前言 step 1 进入excel vba编程界面 step 2 粘贴代码 step 3 运行代码 step 4 删除宏代码前言这两天接触到excel比较多,才发现使用excel不仅仅是简单的复制 ...
python控制excel宏复制,将列从一个excel复制到另一个excel并从python运行宏
我正在尝试将合并文件中的所有列复制到摘要文件中,并从python运行excel宏,摘要文件有从a到BB的列,我只想复制到AI,我尝试了下面的代码,但它没有给我任何结果wbpath = 'C:\\Use ...
编程隐藏child指定列_简单的Excel VBA编程问题解答——完美Excel第183周小结
学习Excel技术,关注微信公众号: excelperfect 下面是2020年11月12日发布的一些简单的ExcelVBA问题的答案,是不是和你想的一样. 1.表达式11mod 3的计算结果是什么? ...
7-3 最矮的巨人 (4 分)操场上有N x N个“巨人”按N行N列的矩阵形式列队，请编程找出该方阵中所有“最矮的巨人”。
7-3 最矮的巨人 (4 分) 操场上有N x N个"巨人"按N行N列的矩阵形式列队,请编程找出该方阵中所有"最矮的巨人". 所谓"最矮的巨人&quo ...

Excel宏编程，给出2列进行去重合并

Excel宏编程，给出2列进行去重合并相关推荐

最新文章

热门文章