刪除一系列單元格的底部邊框

我有一個非常簡單的問題，希望有一個非常簡單的解決方案。我正在嘗試創建一個宏，以僅刪除一系列單元格的底部邊框。但是，如果我做類似刪除一系列單元格的底部邊框

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

它只會刪除最低行單元格的底部邊框。有沒有辦法爲每個細胞做到這一點？我不想使用for循環，因爲它很慢，您可以看到每個單元格的邊界都被擦除 - 我想使其瞬間完成。

來源

2014-07-17 user3790788

考慮你的決定，並使用循環：

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

來源

2014-07-17 12:54:55

不知道該應用程序，謝謝！ – user3790788

刪除一系列單元格的底部邊框

回答

相關問題