EXCEL表格中怎样通过筛选选出有色块的几列数据，没色块的列隐藏？
发布网友
共4个回答
热心网友
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
热心网友
通过颜色筛选 再隐藏追问麻烦能否实操发图看下。谢谢
追答
热心网友
用代码来代替手工隐藏列。
热心网友
转置粘贴，然后筛选颜色吧追问你好，转置只能对单列使用吧，这么多数据转置不能实现吧，如果可以的话，麻烦实操发图看下吧，谢谢！
