Question

我有一个非常简单的问题，希望有一个非常简单的解决方案。我正在尝试创建一个宏来仅删除一系列单元格的底部边框。但是，如果我做了类似

的事情

Range("D21:I28").Borders(xlEdgeBottom).Linestyle = xlNone

它只删除最下面一行单元格的底部边框。有没有办法为每个细胞做到这一点？我不想使用for循环，因为它很慢并且你可以看到每个单独的单元格的边界被删除 - 我想让它瞬间完成。

Answer 1

重新考虑你的决定并使用循环：

Sub UseALoop()
    Application.ScreenUpdating = False
    For Each r In Range("D21:I28")
        r.Borders(xlEdgeBottom).LineStyle = xlNone
    Next r
    Application.ScreenUpdating = True
End Sub

删除一系列单元格的底部边框

1 个答案: