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

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

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

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

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

    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.1K20

    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

    linux vi 替换

    基本的替换 :s/vivian/sky/ 替换当前行第一个 vivian 为 sky :s/vivian/sky/g 替换当前行所有 vivian 为 sky :n,$s/vivian/sky/ 替换第 n 行开始到最后一行中每一行的第一个...vivian 为 sky :n,$s/vivian/sky/g 替换第 n 行开始到最后一行中每一行所有 vivian 为 sky (n 为数字,若 n 为 ..../ 为 sky/ :%s+/oradata/apras/+/user01/apras1+ (使用+ 来 替换 / ): /oradata/apras/替换成/user01/apras1/ 删除文本中的^...M 问题描述:对于换行,window下用回车换行(0A0D)来表示,linux下是回车(0A)来表示。...在vi中处理:首先使用vi打开文件,然后按ESC键,接着输入命令: :%s/VM// :%s/^M$//g 如果上述方法无用,则正确的解决办法是: tr -d “\r” dest tr

    12.1K20

    Linux 删除文本中的重复行

    在进行文本处理的时候,我们经常遇到要删除重复行的情况。那怎么解决呢? 下面就是三种常见方法? 第一,用sort+uniq,注意,单纯uniq是不行的。...shell> sort -k2n file | uniq 这里我做了个简单的测试,当file中的重复行不再一起的时候,uniq将服务删除所有的重复行。...经过排序后,所有相同的行都在相邻,因此unqi可以正常删除重复行。 第二,用sort+awk命令,注意,单纯awk同样不行,原因同上。...P; D' 最后附一个必须先用sort排序的文本的例子,当然,这个需要用sort排序的原因是很简单,就是后面算法设计的时候的“局部性”,相同的行可能分散出现在不同的区域,一旦有新的相同行出现,那么前面的已经出现的记录就被覆盖了...参考推荐: 删除文本中的重复行(sort+uniq/awk/sed)

    14.2K20

    Linux vi的使用

    Linux vi的使用 vi模式转换 经常使用的三种基本模式:命令模式(Command Mode),输入模式(Input Mode),末行模式(Last Line Mode),其他的9种模式不做介绍,...强制退出,即不保存就退出 :wq 保存并且退出 vi常用操作 1、插入文本(i,I,a,A,o,O) 添加: 输入a后,在光标的右边插入文本 输入A,在一行的结尾处添加文本 插入:...撤消对一行的更改:输入U来撤消你对一行所做的所有更改,这个命令只有在你没将光标移动到该行以外时才生效 3、删除文本 删除一个字符 为删除一个字符,需将光标放置在要删除的字符上并输入x 为删除光标之前...输入dw来删除该词余下的部分 删除一行 将光标放置到该行的任意处并输入dd 删除多行 ndd    包括当前行 删除到文件的结尾 为删除从当前行到文件结尾的所有内容(包括当前行),需输入dG 4、复制...复制一行命令:yy 粘贴命令:p  (粘贴到当前行的下一行) 复制指定文件的内容  : r filename 5、查找一个字符串 输入/,并在/后面输入要查找的串,然后按下回车

    11.7K10

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

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

    16.7K60

    22.linux 文件管理命令:colrm删除指定的行iconv转换给定文件的编码

    linux 文件管理命令:col过滤控制字符、colrm删除指定的行、fold限制文件列宽、 iconv转换给定文件的编码、dc任意精度的计算器、expr求表达式变量的值col:过滤控制字符作用:在许多...-l nline预设的内存缓冲区有 128 列,可以自行指定缓冲区的大小。案例练习过滤 cat 手册页的 RLF 和 HRLF 字符并且重定向到文件 cat.man.txt。...# man cat | col -b > cat.man.txt colrm:删除指定的行作用:从标准输入设备读取数据,转而输出到标准输出设备。如果不加任何参数,则该命 令不会过滤任何一行。...案例练习删除 hello.c 文件第二行。# colrm 2 指定的文件里读取内容,将超过限定列宽的列加入增列字符后,输出到标准输出 设备。...若不指定任何文件名称,而所给予的文件名为“-”,则 fold 命令会从标准输入设备读取 数据。用法:fold 选项... 文件...

    1.3K00
    领券