excel中只删除一行中重复的"数据",不删行或者列.而且判定内容可以直接通 ...

发布网友 发布时间：2024-07-07 09:28

我来回答

共3个回答

热心网友 时间：2024-08-02 17:17

Sub tt1()
Dim rng As Range,a as Integer ,a1 as Integer ,b as Integer ,c as Integer
Set rng = Selection
a = rng.Cells(1, 1).Row
a1 = rng.Cells(1, 1).Column
b = rng.Rows.Count
c = rng.Columns.Count
For j = a To a + b - 1
If Cells(j, a1) = "" Then GoTo 100
For i = a1 To a1 + c - 1
If Application.CountIf(Range(Cells(j, a1), Cells(j, i)), Cells(j, i)) > 1 Then
Cells(j, i) = ""
End If
Next
100
Next
End Sub
运行前先把范围选择了。同行内重复的删除

热心网友 时间：2024-08-02 17:11

这个问题通过VBA能比较方便地解决，但楼主的“判定内容可以直接通过鼠标选择”是什么意思？

热心网友 时间：2024-08-02 17:15

宏可以实现，但是不明白LZ说的“判定内容可以直接通过鼠标选择”是什么意思？如果是通过鼠标选择删除第几行的话，那以下这个代码可以实现。

这个是判断你选中的单元格在第几行，从而删除该行的重复内容
Sub del()
a = ActiveCell.Row '判断选中单元格在第几行
b = Cells(a, 256).End(xlToLeft).Column '判断该行中最后一列位置（包括空单元格）
For i = 1 To b
For ii = i To b
If Cells(a, i) = Cells(a, ii + 1) Then
Cells(a, ii + 1) = ""
End If
Next ii
Next i
End Sub

如果有不明白的LZ可以继续追问。