excel相同数据行自动删除-爱科技问答

智能回答

excel相同数据行自动删除

展开

没找到满意答案？去问豆包AI智能助手

取消复制问题

yhrigy

，删掉重复行：选中AB列或A1:B9区域→数据→高级→按图设置，结果就出来了~
271546676

直接鼠标右键点击需要的行标，然后选择删除即可。
glc2012

插入辅助列，把所有的空行进行数字标注，然后排序，统一删除
0711hh

选中这四列，数据-筛选-高级筛选-选择不重复的数据,然后把显示出来的全部选择复制到另一份表那里就可以啦
5642665

用编程代码
vba
可以实现
jinli81

进入vba编辑器，双击如图所示，进入ThisWorkbook代码编辑窗口，复制下面代码

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)Dim i As Integeri = Application.WorksheetFunction.CountIf(Range("B:B"), Target.Value)If i > 1 Then Target.Delete xlShiftUpEnd Sub
　　Workbook_SheetChange为工作薄内部事件，当用户更改工作表中的单元格或者外部链接引起单元格的更改时，产生此事件。参数Target为发生更改的区域。

　　使用excel内置函数 CountIf 计算区域中满足给定条件的单元格的个数。delete方法删除刚刚修改的范围，xlShiftUp指定删除单元格时替补单元格的移位方式为向上。
love825109188

报名表1中的公式重新设一下试试
wvhscnwrik

复制到你要作用的表中
Private Sub Worksheet_Change(ByVal Target As Range)
DIM r As Long, j As Long
If Target.Count = 1 Then
If IsNumeric(Target) Then
With ActiveSheet
j = .[B65536].End(xlUp).Row
If Target.Column <> 2 Or Target.Row > j + 1 And Target.Value = "" Then Exit Sub
For r = 1 To j - 1
If .Cells(r, 2) = Target.Value Then
Application.EnableEvents = False
.Rows(r).Delete
Application.EnableEvents = True
Exit Sub
End If
Next
End With
End If
End If
End Sub

excel相同数据行自动删除

最新回答更多>

相关问答

热门推荐

excel相同数据行自动删除

最新回答 更多>

相关问答

热门推荐

最新回答更多>