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

我有一个非常简单的问题，希望有一个非常简单的解决方案。我试图创建一个宏，只删除一系列单元格的底部边框。然而，如果我做了类似的事情

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