VBA隐藏/取消隐藏重复的行

Question

我有一个看起来像这样的数据集

ID |成本|名称
   001 | 10 |自行车
   002 | 05 |三轮车
   001 | 10 |自行车
   001 | 10 |自行车
   002 | 05 |三轮车
003 | 15 |摩托车
003 | 15 |摩托车

目前，我需要隐藏重复的行，只保留原始行的一组，就像这样。

ID |成本|名称
001 | 10 |自行车
002 | 05 |三轮车
003 | 15 |摩托车

我找到的代码只能删除重复项，但为了完整性，我不能删除它们，我只需要隐藏它们进行报告，并且只需点击一下按钮就可以再次取消隐藏行。 / p>

我目前的代码看起来像这样

Private Sub removeDuplicates()

' Get last row
Dim LR As Long
LR = Range("C" & Rows.Count).End(xlUp).Row


ActiveSheet.Range("$A$1:$C" & LR).removeDuplicates Columns:=1, Header:=xlYes
End Sub

任何帮助将不胜感激，谢谢！ 如果我没有提供足够的信息，我很抱歉。 PS：我开始编写VBA大约一周了。