sub shuzu()
dim m as interger
dim n as interger
dim arr1()
r = Sheets(4).Range("f65535").End(xlUp).Row
ReDim arr1(1 To r)
For m = 1 To r
For n = r To m + 1 Step -1
arr1 = Sheet1.Range("f1:f" & Sheets(4).Range("f65535").End(xlUp).Row)
If arr1(m) = arr1(n) Then
' If Sheets(4).Range("f" & m).Value = Sheets(4).Range("f" & n).Value Then
arr1(n).Delete
End If
Next
end sub
上面是我自己写的一段代码,思路就是吧一列单元格里的数据赋值给数组,然后在数组里比较,有重复值的时候就删除!但是老是提示下标越界,有没有大神知道怎么回事啊?
dim m as interger
dim n as interger
dim arr1()
r = Sheets(4).Range("f65535").End(xlUp).Row
ReDim arr1(1 To r)
For m = 1 To r
For n = r To m + 1 Step -1
arr1 = Sheet1.Range("f1:f" & Sheets(4).Range("f65535").End(xlUp).Row)
If arr1(m) = arr1(n) Then
' If Sheets(4).Range("f" & m).Value = Sheets(4).Range("f" & n).Value Then
arr1(n).Delete
End If
Next
end sub
上面是我自己写的一段代码,思路就是吧一列单元格里的数据赋值给数组,然后在数组里比较,有重复值的时候就删除!但是老是提示下标越界,有没有大神知道怎么回事啊?