一、写入宏
按【Alt+F11】组合键打开VBA编辑器。单击【插入】→【模块】菜单命令，即可插入VBA模块。输入或粘贴VBA代码，保存即可。
Sub 隔行上色() Dim rng As Range, i As Long Set rng = Range("A2:N20") ' 设置数据区域 For i = 1 To rng.Rows.Count If i Mod 2 = 1 Then rng.Rows(i).Interior.Color = RGB(240, 240, 240) ' 奇数行浅灰色 Else rng.Rows(i).Interior.ColorIndex = xlNone ' 偶数行无色 End If Next iEnd Sub
