|
发表于 2015-5-6 14:31
|
显示全部楼层
本楼为最佳答案
- Sub grf()
- k = -3
- For Each sh In Worksheets
- If sh.Index > 1 Then
- c = sh.UsedRange.Columns.Count
- For j = 1 To c Step 4
- arr = sh.Cells(1, j).CurrentRegion
- Set Rng = sh.Columns(j + 1).Find(0, lookat:=xlWhole)
- If Not Rng Is Nothing Then
- r = Rng.Row
- If r > 3 Then
- If arr(r, 1) = arr(r - 1, 1) And arr(r, 1) = arr(r - 2, 1) Then
- k = k + 4
- Cells(24, k).Resize(UBound(arr), 3) = arr
- Cells(24 + UBound(arr) + 1, k) = sh.Name & "-" & j
- End If
- End If
- End If
-
- Next
- End If
- Next
- End Sub
复制代码 |
评分
-
查看全部评分
|