VBA:单元格实例（格式化工资条），拾取的颜色求平均

Posted 2023-04-12 pgymeitianjinbu

Sub 格式化工资条()
Dim i%
i = Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To i
    If j Mod 2 Then
        With Cells(j, 1).EntireRow.Range("a1:g1").Font
            .Bold = True
            .Size = 8
            .ColorIndex = 56
        End With
    Else
        With Cells(j, 1).EntireRow.Range("a1:g1").Interior
            .ColorIndex = 40
        End With
    End If
Next j
End Sub

Sub 清除格式化()
Selection.ClearFormats
End Sub

案例二：

Sub 根据查找功能拾取的颜色求平均()
    On Error GoTo 100
  Dim erng As Range, rng As Range, i As Long
  i = Application.FindFormat.Interior.Color
  Set erng = Cells(Rows.Count, "e").End(xlUp)
  For Each rng In Range([b2], erng)
    If

在excel中怎么快速批量删除单元格背景颜色为红色的数据?

Excel
中额可以根据格式进行查找单元格，因此快速批量删除单元格背景颜色为红色的数据的步骤为：根据背景颜色查找→全选查找到的结果→DEL删除。
下面以Excel
2010为例进行实例演示（点击图片查看动画效果）：
1、根据格式查找数据

2、全选数据，删除之 参考技术A 函数处理很无力。
用vba吧
打开你的工作簿，按下
alt+F11
菜单，插入，模块
将下面代码复制到右边空白区
然后存盘退出
再打开文件，按照提示，你最终需要选择“启用宏”
然后alt+F8
找到批量删除，执行它
即可，代码中假设了数据是A1:G100，你根据实际自己修改一下
Sub
批量删除()
For
Each
rng
In
Range("A1:G100")
If
rng.Interior.ColorIndex
=
3
Then
rng.Delete
Shift:=xlUp
End
If
Next
End
Sub 参考技术B 替换，打开选项，查找内容不填，格式选择你要删数据的单元格格式一样的，替换为空，如果连背景色一起去掉，把这个格式也改了，然后选全部替换就可以本回答被提问者采纳