求助大神，帮忙解决个问题

cpq151721

具体的要求如附件，菜鸟学习中……
以实现关于单元格的区域合并及两个表的数据对应
自己实现段的区分
Sub SVNtest()
    Dim arr()
    Dim brr() As Long
    Dim str$, i&, k&, j&
    arr = Sheets(1).[b4].CurrentRegion.Value
    ReDim brr(1 To (UBound(arr) + 2), 1 To 1)
    For i = 1 To (UBound(arr) - 3)
        str = "": k = 0
        Do
            str = str & arr(i + k, 1)
            k = k + 1
        Loop Until arr(i + k, 1) Like "-------*"
        If InStr(str, "02.IMPLEMENT") Or InStr(str, "Implement") Then
            If InStr(str, "//") Then
                Range("K" & i + 2) = "Y"
            Else
                Range("K" & i + 2) = "N"
                For j = i + 2 To (i + k + 2)
                    Rows(j).Interior.ColorIndex = 6
                Next
            End If
        End If
        i = i + k
    Next
End Sub

youfang

问题是附件都没有

cpq151721

youfang 发表于 2014-6-9 14:38
问题是附件都没有

不好意思啊，刚发布的时候选了哥发布悬赏，就没把附件给发出去了，已添加