wps表格中根据单元格底纹颜色然后在对应单元格中自动全部填入数字1，有什么办法么？或者需要编个宏？

wps表格中根据单元格底纹颜色然后在对应单元格中自动全部填入数字1，有什么办法么？或者需要编个宏？

Sub 填充值()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.Interior.ColorIndex <> xlNone Then
rng.Value = 1
End If
Next
End Sub

意思是当前表的使用区域中，如果没有底纹颜色，就将值修改或者填充为1

首先选中需要设置底纹的单元格，在右击菜单中选择“设置单元格格式 打开单元格格式窗口后，在“图案”选项卡中可以选择底纹的颜色，挑选完成后点击“确定”按钮。 颜色底纹设置完成后就得到如下图中的结果。 如果你觉得单色的底纹太单调，也可以选择图案样式 选择你想要的图案样式后点击“确定”按钮。