Excel打开时，根据列值的不同，进行实线的消除（结帖）！

vbaExcel0011

根据第某一列的值(只有0和1)来进行对表格的重新画线，
刚打开Excel时，表格都是实线，然后根据I列的值进行实线的消除操作。
当I列的相邻的值相同的时候，将相同值得之间的实线取消，将该行对应的 A列和F列的下面的实线消除。

具体需求及执行后的效果请参照附件。
先谢谢大家了

[ 本帖最后由 vbaExcel0011 于 2009-5-18 08:52 编辑 ]

走在最后瞧

Sub zzq()
    arrx = Range("I1:I" & Range("I1").End(xlDown).Row)
    For i = 1 To UBound(arrx) - 1
        If arrx(i, 1) = arrx(i + 1, 1) Then Range("A" & i & ",F" & i).Borders(xlEdgeBottom).LineStyle = xlNone
    Next
End Sub

vbaExcel0011

谢谢 走在最后瞧
现在的执行结果和我想要的结果还有一点的差别，
现在执行后，将A列和F列的实线全都取消了，
我想要的效果是当相邻的两个值不相等时，他们之间的实线是要保留的

蓝桥玄霜

Sub zzq()
    arrx = Range("I1:I" & Range("I1").End(xlDown).Row)
    For i = 1 To UBound(arrx) - 1
        If arrx(i, 1) = arrx(i + 1, 1) Then
            Range("A" & i & ":A" & i + 1).Borders(xlInsideHorizontal).LineStyle = xlNone
            Range("F" & i & ":F" & i + 1).Borders(xlInsideHorizontal).LineStyle = xlNone
        End If
    Next
End Sub

zldccmx

If arrx(i, 1) = arrx(i + 1, 1) Then union(Range("A" & i ),range("F" & i)).Borders(xlEdgeBottom).LineStyle = xlNone

vbaExcel0011

谢谢 蓝桥玄霜 ，老朽
问题解决了  谢谢

现在还有一个问题，就是表格重新绘制好以后，要将滴I列的值删除，谢谢各位了

[ 本帖最后由 vbaExcel0011 于 2009-5-16 10:54 编辑 ]

zldccmx

原帖由 vbaExcel0011 于 2009-5-16 10:46 发表
谢谢 蓝桥玄霜 ，老朽
问题解决了  谢谢

现在还有一个问题，就是表格重新绘制好以后，要将滴I列的值删除，谢谢各位了

你还少谢了一个人，那个　走在最后瞧

vbaExcel0011

原帖由 zldccmx 于 2009-5-16 11:37 发表


你还少谢了一个人，那个　走在最后瞧

在上面已经谢过了 呵呵

老朽兄，还得麻烦你一个事，表格绘制完以后，怎么将I列所有的值清空啊

蓝桥玄霜

[i:i]=""
或者
[i:i].ClearContents

vbaExcel0011

问题已解决  谢谢楼上的各位！！！