|
3楼的思路不错。- Sub grf()
- arr = Range("a1:a" & [a65536].End(3).Row + 1) '定义数组比源数组大1行,以便和最后一行比较
- ReDim brr(1 To UBound(arr), 1 To 1)
- If arr(1, 1) = arr(2, 1) Then brr(1, 1) = 1
- For i = 2 To UBound(arr) - 1
- If (arr(i, 1) <> arr(i - 1, 1) And arr(i, 1) = arr(i + 1, 1)) Or _
- (arr(i, 1) <> arr(i + 1, 1) And arr(i, 1) = arr(i - 1, 1)) Then
- brr(i, 1) = i
- End If
- Next
- [c1].Resize(i - 1) = brr
- End Sub
复制代码 |
评分
-
查看全部评分
|