创build一个macros，它允许我删除在其他列重复“只有”旁边的单元格包含完全相同的数字

我试图创build一个macros，这将允许我删除dupilcation“只有”旁边的单元格包含完全相同的数字。

例：

范围将是P15：Q34

PQ Row 15 8.22 8.22 Row 16 16.33 32.22 Row 17 25.66 25.66 . . . and so on 

正如你所看到的，我在Q15和Q17有重复。 我想保留所有的信息在P列和任何Q单元（如Q16），但只删除重复。 有人可以帮我请这个macros吗？

Answer 1

希望这可以帮助

 Sub Test() For Each Cell In Sheets("New Summary").Range("P15:Q34") If Cell.Value = Cell.Offset(0, 1) Then Cell.Offset(0, 1) = "" End If Next End Sub 

Answer 2

我觉得没有VBA，你想要什么是容易的。 在另一列（我在第15行build议）中写道：

 =IF(P15=Q15,"",Q15) 

并复制下来以适应。 select结果并将特殊值粘贴到Q15中。