首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
您找到你想要的搜索结果了吗?
是的
没有找到

VBA:根据指定删除重复

文章背景:在工作生活中,有时需要进行删除重复的操作。比如样品测试时,难免存在复测数据,一般需要删除第一数据,保留后一的数据。...Excel虽然自带删除重复项的功能,但在使用时存在不足。下面先介绍删除重复项的功能,然后再采用VBA代码实现删除重复的功能。...,一是如果存在重复项,默认保留行号靠前的数据;二是只能拓展到连续的数据列,而无法拓展到整行。...(2)VBA代码实现 本代码要实现的功能是根据品号进行重复删除。若有重复,保留后一数据。原始数据默认已经按品号升序排列。...Sub DeleteDuplicate() '根据指定删除重复 Dim aWB As Worksheet, num_row As Integer Dim

3K40

VBA:基于指定删除重复

文章背景:在工作生活中,有时需要进行删除重复的操作。比如样品测试时,难免存在复测数据,一般需要保留最后测试的数据。...之前通过拷贝的方式保留最后一的数据(参见文末的延伸阅读1),但运行效率较低。目前通过借助数组和字典达到删除重复的效果。...1 基于指定列,保留最后一的数据2 基于指定列,保留最后一的数据,同时剔除不需要的列3 效果演示 1 基于指定列,保留最后一的数据 想要实现的效果:在原来测试数据的基础上,基于B列,如果存在重复的数据...VBA代码如下: Sub Delete_Duplicate1() '基于指定列,删除重复,保留最后出现的行数据。...Range.Value2 property(https://docs.microsoft.com/en-us/office/vba/api/excel.range.value2) 延伸阅读 [1] 根据指定删除重复

3.1K30

ExcelVBA删除指定列含有指定字符的所在的

ExcelVBA删除指定列含有指定字符的所在的 =====前面学习相关内容==== 1.ExcelVBA删除包含指定字符所在的 2.ExceVBA删除指定字符所在的_优化版 =====end...==== 1.用Find、Findnext,再删除, 2.用SpecialCells(xlCellTypeConstants, 16)快速定位 以上两种方法都可以不用理会“关键字符”在那一列的情况下执行..., 【问题】 有人提出,程序运行时能否输入指定字符,输入指定列,再进行删除。...可以的,(其实以上两种方法的适应广泛度还比较高),既然有人提出,就写一个吧 【思路】 666,参考以前两篇吧 【代码】 Sub yhd_ExcelVBA删除指定列含有指定字符的所在的()...:=2) '删除的关键字 On Error GoTo 0 If Val(titleRow) = 0 Or DeleteStr = "" Then MsgBox "输入数据不正确

65120

动态生成表格、隐藏表格、选中删除任意、jquery、输入验证

运行效果: 只显示给管理系统使用人员看的表:(单击选中任意删除该行,修改相同道具个数直接修改表中对应行数据) 不隐藏传参表时效果:(单击选中任意删除该行,修改相同道具个数直接修改表中对应行数据...、选中删除任意: //添加按钮点击事件 function addProp() { //正则:非零和非零开头的数字:^([1-9][0-9]*)$ var...choseNotice").show(); return; } //隐藏是否选择道具提示框 $("#choseNotice").hide(); //id选择器得表格中的...,不存在,即该种道具没有添加过。...function choseWho(id){ //删除选中行 $("#proptrid_"+id+"").remove(); //对隐藏表格作同样操作

2.6K60

ExceVBA删除指定字符所在的_优化版

ExceVBA删除指定字符所在的_优化版 =====start==== 1.ExcelVBA删除包含指定字符所在的 2.在Excel中通过VBA对Word文档进行查找替换 3.ExcelVBA...文件操作-获取文件夹(含子文件夹)所有文件列表(优化版) =====end==== 【问题】 在实际工作中,要删除含有某字符的所在的,如果数据不多,手工可以完成,如果数据量多,用前面的的文章:ExcelVBA...删除包含指定字符所在的用Find、FindNext,再删除,新的问题:如果sheet多,每个表是上w的数据,跑起来也很卡。...再delete,速度快了,效率高了 【代码】 Sub yhd_ExceVBA删除指定字符所在的_优化版() Dim dic As Object, dicRng As Range Dim...Set Rngs = .UsedRange.SpecialCells(xlCellTypeConstants, 16) ' Rngs.EntireRow.Delete '当数据有两个在同一时以上代码出错

28530
领券