
excel
VBASub DeleteDuplicateValues()Dim ws As WorksheetDim lastRow As LongDim i As LongSet ws = ActiveSheetlastRow = ws.Cells(Rows.Count, 1).End(xlUp).RowFor i = 2 To lastRowIf ws.Cells(i, 1).Value = ws.Cells(i - 1, 1).Value Thenws.Cells(i, 1).EntireRow删除End IfNext iEnd Sub然后,在 VBA 窗口中运行该宏即可。注意,在运行之前请确保已经打开了开发者选项卡,并且将宏保存为一个 VBA 文档。这个宏会遍历整个表格,并删除其中所有重复值。请确保你想要删除重复值的列已经被选择好,否则该宏将删除整个表格中的重复值。运行完毕后,你将会看到所有重复值都已经被成功删除了。如果需要恢复重复值,只需要再次运行该宏即可。希望对你有所帮助!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号