删除一系列单元格的底部边框
我有一个非常简单的问题，希望有一个非常简单的解决scheme。 我正在尝试创build一个macros来删除一个单元格范围的底部边框。 但是，如果我做了类似的事情
Range("D21:I28").Borders(xlEdgeBottom).Linestyle = xlNone 它只会删除最低行的单元格的底部边框。 有没有办法为每个细胞做到这一点？ 我不想使用for循环，因为它很慢，你可以看到每个单元格的边界被擦除 – 我想使它瞬间完成。
重新考虑您的决定并使用循环：
Sub UseALoop() Application.ScreenUpdating = False For Each r In Range("D21:I28") r.Borders(xlEdgeBottom).LineStyle = xlNone Next r Application.ScreenUpdating = True End Sub