Sub 品牌筛选(p)
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim arr()
'品牌的筛选及删除重复值
j = 1
For i = 1 To Sheets("清单目录").Range("a65535").End(xlUp).Row
If Sheets("清单目录").Range("a" & i).Value = Sheets(4).Range("a" & p).Value Then
j = j + 1
Sheets(4).Range("f" & j).Value = Sheets("清单目录").Range("j" & i).Value
End If
Next
For m = 1 To Sheets(4).Range("f65535").End(xlUp).Row - 1
For n = Sheets(4).Range("f65535").End(xlUp).Row To m + 1 Step -1
If Sheets(4).Range("f" & m).Value = Sheets(4).Range("f" & n).Value Then
Range("f" & n).Delete
End If
Next
Next
End Sub
这是我写一段代码,因为数据有八百多行,所以执行起来很慢,要二十多秒,请问有大神知道咋优化我这段代码吗?
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim arr()
'品牌的筛选及删除重复值
j = 1
For i = 1 To Sheets("清单目录").Range("a65535").End(xlUp).Row
If Sheets("清单目录").Range("a" & i).Value = Sheets(4).Range("a" & p).Value Then
j = j + 1
Sheets(4).Range("f" & j).Value = Sheets("清单目录").Range("j" & i).Value
End If
Next
For m = 1 To Sheets(4).Range("f65535").End(xlUp).Row - 1
For n = Sheets(4).Range("f65535").End(xlUp).Row To m + 1 Step -1
If Sheets(4).Range("f" & m).Value = Sheets(4).Range("f" & n).Value Then
Range("f" & n).Delete
End If
Next
Next
End Sub
这是我写一段代码,因为数据有八百多行,所以执行起来很慢,要二十多秒,请问有大神知道咋优化我这段代码吗?