|
楼主 |
发表于 2014-6-28 22:09
|
显示全部楼层
本帖最后由 fan3031 于 2014-6-28 22:16 编辑
能解释一下吗?
Sub SelectRepeat()
Dim i As Long, j As Long
Dim arr, arr1 这个变量么?
arr = Range("a1:f" & Cells(Cells.Rows.Count, 6).End(xlUp).Row) 这个好复杂,是取有多少行吗?
ReDim arr1(1 To UBound(arr), 1 To 3) 这个是数组吗?
For i = 1 To UBound(arr) 这个更不知道了
For j = 1 To UBound(arr)
If arr(j, 3) - arr(i, 6) < 40 And arr(j, 1) = arr(i, 4) Then
k = k + 1 k也没有定义呀?
arr1(k, 1) = arr(i, 4) 这个似乎不是用对象什么操作?
arr1(k, 2) = arr(i, 5)
arr1(k, 3) = arr(i, 6)
End If
Next
Next
Cells(1, "H").Resize(k, 3) = arr1 这个也不知道
谢谢!!!
End Sub
|
|