利用vbs将A列唯一的数据删除

以下是利用vbs将A列唯一的数据删除的代码：

```
Option Explicit

Dim objExcel, objWorkbook, objWorksheet
Dim dict, lastRow, i, cellValue

' 创建Excel对象
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

' 打开工作簿
Set objWorkbook = objExcel.Workbooks.Open("C:\example.xlsx")

' 选择工作表
Set objWorksheet = objWorkbook.Worksheets("Sheet1")

' 获取最后一行
lastRow = objWorksheet.Cells(objWorksheet.Rows.Count, "A").End(-4162).Row

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

' 遍历A列，将唯一的数据添加到字典中
For i = 1 To lastRow
cellValue = objWorksheet.Cells(i, "A").Value
If Not dict.Exists(cellValue) Then
dict.Add cellValue, i
End If
Next

' 删除唯一的数据所在的行
For Each i In dict.Items
objWorksheet.Rows(i).Delete
Next

' 保存并关闭工作簿
objWorkbook.Save
objWorkbook.Close

' 退出Excel
objExcel.Quit
```

请将代码中的文件路径和工作表名称修改为您实际使用的情况。此代码将会删除A列中唯一的数据所在的行，如果有多个相同的数据，只会保留第一个。