求VBA代码 excel中选中单元格，高亮显示这行每个单元格边框和整行！

Private r1 As Long '前一个选定的行号 public Const r0 = 65536 '可以调整为不使用的行号 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If r1 > 0 Then Rows(r0).Copy Rows(r1).PasteSpecial Paste:=xlPasteForma