EXCEL表格中怎样通过筛选选出有色块的几列数据，没色块的列隐藏？

发布网友发布时间：2022-04-25 22:39

共4个回答

热心网友时间：2023-10-16 06:11

Sub 宏1()

HH = 10 '改为需要颜色判断的所在行号

LS = 50 '改为最大列数

For R = 1 To LS

If Cells(HH, R).Interior.Pattern = xlNone Then

'隐藏无颜色的列,(填充为白色的也不会被隐藏.白色也是一种颜色,如果要指定隐藏颜色也可以用Interior.Color,)

Columns(R).EntireColumn.Hidden = True

Else

'MsgBox "有颜色"

End If

Next R

End Sub

热心网友时间：2023-10-16 06:11

通过颜色筛选再隐藏追问麻烦能否实操发图看下。谢谢

追答

热心网友时间：2023-10-16 06:12

用代码来代替手工隐藏列。

热心网友时间：2023-10-16 06:12

转置粘贴，然后筛选颜色吧追问你好，转置只能对单列使用吧，这么多数据转置不能实现吧，如果可以的话，麻烦实操发图看下吧，谢谢！