|
发表于 2011-8-20 09:20
|
显示全部楼层
本楼为最佳答案
本帖最后由 zjdh 于 2011-8-20 09:24 编辑
- Sub TEST()
- ARR = Range("A2:F" & Range("A65536").End(3).Row)
- For I = 1 To UBound(ARR)
- For J = I + 1 To UBound(ARR)
- If ARR(I, 1) & ARR(I, 4) & ARR(I, 6) = (ARR(J, 1) - 1) & ARR(J, 4) & ARR(J, 6) And ARR(I, 6) = 1 Then
- ARR(I, 5) = "同比": ARR(J, 5) = "同比"
- Exit For
- End If
- Next
- If ARR(I, 5) = "" And ARR(I, 6) = 1 Then ARR(I, 5) = "非同比"
- Next
- Range("A2").Resize(UBound(ARR), 6) = ARR
- End Sub
复制代码 |
|