我不是一个程序员,但我试图替换边框颜色而不影响Excel中边框的重量,但不幸的是,我编写的代码没有。请你们帮助我解决代码中的错误。
Sub BorderReplace()
Dim Top, Bottom, Left, Right
Cells.Select
'Save Border Weights
Top = Selection.Borders(x1EdgeTop).Weight
Bottom = Selection.Borders(x1EdgeBottom).Weight
Left = Selection.Borders(x1EdgeLeft).Weight
Right = Sele