首页
学习
活动
专区
圈层
工具
发布

VBA:根据指定列删除重复行

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

6K40
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    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] 根据指定列删除重复行

    6.4K30

    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 "输入数据不正确

    3.2K20

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

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

    4.7K60

    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 '当数据有两个在同一行时以上代码出错

    1.5K30

    Python将表格文件的指定列依次上移一行

    本文介绍基于Python语言,针对一个文件夹下大量的Excel表格文件,对其中的每一个文件加以操作——将其中指定的若干列的数据部分都向上移动一行,并将所有操作完毕的Excel表格文件中的数据加以合并...此外,很显然在每一个文件的操作结束后,加以处理的列的数据部分的最后一行肯定是没有数据的,因此在合并全部操作后的文件之前,还希望将每一个操作后文件的最后一行删除。   ...,result_path则是结果Excel表格文件的存放路径。   ...其次,我们通过columns_move_index = list(range(8, 16)) + list(range(17, 36))指定需要移动数据的列的索引范围,并随后遍历需要移动数据的列。...接下来,我们通过if len(df):判断是否DataFrame不为空,如果是的话就删除DataFrame中的最后一行数据;随后,将处理后的DataFrame连接到result_df中。

    4.3K10

    ElementUI 基于vue+sortable.js实现表格行拖拽

    基于vue+sortable.js实现表格行拖拽 实践环境 sortablejs@1.13.0 vue@2.6.11 element-ui@2.13.2 安装sortable.js拖拽库 npm install...= this; Sortable.create(tbody, { draggable: ".demo-table-wrapper .el-table__row", // 指定父容器下可被拖拽的子元素...======(被拖拽记录行2) * 如果从上往下拖拽,即newIndex > oldIndex,那么在目标位置对应记录行上移(目标位置对应记录行索引值减1),在newIndex所指位置插入被拖拽行...(被拖拽行索引设置为newIndex),视觉效果就是在after位置(即目标位置对应行下方)插入被拖拽行 * 如果从下往上拖拽,即newIndex 行下移...(目标位置对应记录行索引值加1),在newIndex所指位置插入被拖拽行(被拖拽行索引设置为newIndex),视觉效果就是在上述before位置(即目标位置对应行上方)插入被拖拽行

    4.5K10

    Excel小技巧90:快速删除包含指定值的所有行

    有一个Excel操作问题:我想删除所有包含有“完美Excel”的行,如何快速操作? 我想,你肯定是多么地不想再看“完美Excel”公众号了!...如下图1所示的工作表,现在要删除单元格内容为“完美Excel”所在的行。 ? 图1 首先,选择所有的数据。...图2 单击“查找全部”按钮,在下面的列表框中选中全部查到的单元格(先选取第1行,按住Shift键,滚动到最后,选取最后1行,这将选择所有查找到的结果),如下图3所示。 ?...接下来,按 组合键,弹击“删除”对话框,选取“整行”,如下图4所示。 ? 图4 单击“确定”按钮,即可删除所有含有“完美Excel”内容的单元格所在的行。

    16.7K60
    领券