利用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列中唯一的数据所在的行，如果有多个相同的数据，只会保留第一个。