小编Fra*_*cis的帖子

我有一些代码删除重复的行,同时保持第一个实例出现特定的字符串.

当我进入代码删除重复项时,宏运行顺利.但是,一旦我点击运行宏,我的excel会冻结并停止响应.我不太确定为什么......

如果有人能够解决一些问题.非常感谢.(我还添加了一个断裂线来显示我试图跑到哪里).

Sub CleanUp()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim lastRow As Integer
Dim i As Integer, j As Integer, k As Integer
Dim stakedItem As String
Dim sortCell As Range, allCell As Range, sortcell2 As Range
Dim currentItem As String, baseItem As String

lastRow = Sheet2.Range("A" & Sheet2.Rows.Count).End(xlUp).Row
Set sortCell = Sheet2.Range("A1")
Set sortcell2 = Sheet2.Range("B1")
Set allCell = Sheet2.Range("A1:Z" & lastRow + 1)
baseItem = Sheet2.Range("B2")

allCell.Sort key1:=sortcell2, order1:=xlAscending, Header:=xlYes

For i = 3 To lastRow …