例如将选中单元格中的所在行变黄色Rows(Selection.Row & ":" & Selection.Row).Interior.ColorIndex = 6
Activesheet.Rows(ActiveCell.row).Select