Question

EXCEL VBA判断同一行上是否有相同内容,将不同的删除

用VBA,指定表名和判断范围(如:B5:J11)
见上图,不复制的内容直接删除(删除D/F/H)
所有判断是在每行

Answer 1

Sub try()
Dim rag As Range, rags As Range
Set rags = Range("B5:J11")
For Each rag In rags
If Application.WorksheetFunction.CountIf(Intersect(Range(rag.Row & ":" & rag.Row), rags), rag.Value) = 1 Then
rag.ClearContents
End If
Next
End Sub

Answer 2

还没解决？我给你弄个

追问

你有代码就给个来

追答

2140586@扣号