使用IF函数删除单元格边框

Question

过去几天我一直在做一些编码，我有点陷入这一部分。我想用IF函数清除所选单元格的边框。但它不起作用。没有错误，当我在VB编辑器中走过时，它运行得非常好。需要帮忙。请。

Range("G4:H4", Selection.End(xlDown)).Select

With Worksheets("Sort Tool").Range("G4:H4", Selection.End(xlDown))
    If Selection.Borders.LineStyle = xlContinous Then
        Selection.Borders.LineStyle = xlNone
    End If
End With

Answer 1

试试这个

With Worksheets("Sort Tool").Range("G4:H4")
    Range(.Cells, .Cells.End(xlDown)).Borders.LineStyle = xlNone
End With