问答1 问答5 问答50 问答500 问答1000

网友互助专业问答平台

首页

互助专区

登录

注册

excel怎么删除每一行中的重复值例如第一行1231 1234 1235 1321 12...

提问网友发布时间：2025-01-11 11:25

声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com

共2个回答

热心网友回答时间：2025-01-11 12:37

执行前：

执行后：

VBA代码：

Option Explicit

Sub 删除行重复()
    Dim arr, db, i&, j%
    arr = ActiveSheet.UsedRange
    Set db = CreateObject("Scripting.Dictionary")
    For i = LBound(arr) To UBound(arr)
        db.RemoveAll
        For j = LBound(arr, 2) To UBound(arr, 2)
            If db.Exists(arr(i, j)) Then
                arr(i, j) = Empty
            Else
                db.Add arr(i, j), True
            End If
        Next j
    Next i
    ActiveSheet.UsedRange = arr
End Sub

程序见附件（电脑登陆打开，手机版无法下载）。

热心网友回答时间：2025-01-11 12:31

Sub 删除重复数据()
Dim i%, k%, n%
For k = 1 To [a65536].End(3).Row
n = Range("iv" & k).End(1).Column
    For i = n To 1 Step -1
        If Application.CountIf(Range(Cells(k, 1), Cells(k, n)), Cells(k, i)) > 1 Then Cells(k, i).Delete Shift:=xlToLeft
    Next
Next
End Sub

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决

等待解决

...显示由于系统注册表文件丢失或损坏因此windows无法加载 EXCEL表中行与列的数据如何对调如何快速将EXCEL中行与行对调? 有眼袋怎么办。25岁。女人眼袋重是什么原因找出眼袋严重源头对症下药 Elasticsearch官方已支持SQL查询,用起来贼方便! elasticsearch数字字符串如何范围查询? ES Client性能测试初探再也没有更简单的方式查询ES了,会SQL就行 es笔记三之term,match,match_phrase 等查询方法介绍浙江省的师范类学校的排名校友会2024浙江省最好大学排名,宁波大学第二,浙江越秀外国语学院前二... 杭州师范大学全国排名是985吗杭州师范大学排名全国第几名 2024年杭州师范大学排名全国多少南斗[nán dǒu]什么意思?近义词和反义词是什么?英文翻译是什么? 男人阳虚的原因和症状男性阳虚怎么调理【JavaScript实用技巧(一)】循环遍历与跳出循环遍历 js数组遍历JavaScript遍历数组的方法有哪些 JavaScript几种常见循环遍历使用和区别电脑插u盘死机为什么u盘连接上电脑后电脑会死机 u盘让电脑死机为什么我电脑一插U盘就死机电脑放了u盘里的视频黑屏了插上u盘后电脑黑屏无法重装系统电脑优盘打开文件就死机U盘一插在电脑上电脑就死机拔掉又好了这是什 ... EDI模块厂家教您如何判断EDI模块的堵塞和衰减小学阶段要养成哪些学习态度和学习习惯? 线上小学英语课程有哪些好处呢? 布袋风管一般用在哪些场所浴霸是什么(浴霸是什么东西) 没学士学位能获得硕士学位吗没有学士学位能不能得到硕士学位 XP系统适合哪些版本的微信? 鸿蒙支持微信吗鸿蒙系统支持微信吗鸿蒙新系统不支持微信吗魅族mx5看视频玩游戏是会锁屏,而且视频还有声音什么原因魅族mx5屏幕会自动锁屏还是自动亮屏是怎么回事?是主板坏了还是cpu或 ... 魅族mx5屏幕2分钟自动锁屏不知道是什么软件一直给我修改!!! 有没有 ...冒“冷气”,由此她联想到了冬天用开水泡方便面时碗里冒“热气... ...夏天,冰箱冒出的白气雪糕冒凉气方便面冒热气分别是什么体什么化...

Top