利用vbs将A列唯一的数据删除此行，A列含有完全相同的数字时保存所在的行数

以下是利用vbs将A列唯一的数据删除此行，A列含有完全相同的数字时保存所在的行数的代码：

```
'打开Excel文件
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\test.xlsx")
Set objWorksheet = objWorkbook.Worksheets(1)

'获取A列的数据
Set objRange = objWorksheet.Range("A1:A" & objWorksheet.UsedRange.Rows.Count)

'创建字典对象
Set dict = CreateObject("Scripting.Dictionary")

'遍历A列的数据
For Each cell In objRange
'如果字典中已经存在该数字，则保存该行号
If dict.Exists(cell.Value) Then
dict(cell.Value) = dict(cell.Value) & "," & cell.Row
'否则将该数字添加到字典中
Else
dict.Add cell.Value, cell.Row
End If
Next

'遍历字典中的数据
For Each key In dict.Keys
'如果该数字只出现了一次，则删除该行
If Len(dict(key)) = Len(CStr(dict(key))) Then
objWorksheet.Rows(dict(key)).Delete
End If
Next

'保存并关闭Excel文件
objWorkbook.Save
objWorkbook.Close
objExcel.Quit
```

这段代码首先打开Excel文件，然后获取A列的数据。接着创建一个字典对象，遍历A列的数据，如果字典中已经存在该数字，则保存该行号，否则将该数字添加到字典中。最后遍历字典中的数据，如果该数字只出现了一次，则删除该行。最后保存并关闭Excel文件。