单元格指定底色如何清除内容

不知道为什么 · 发表于 2018-9-29 11:19

olywo 发表于 2018-9-29 11:02
如何设置删除所有工作簿的呢？这个是活动表的

加个遍历工作表的循环

olywo · 发表于 2018-9-29 11:25

不知道为什么发表于 2018-9-29 11:19
加个遍历工作表的循环

怎么加，小白不懂。请指教

olywo · 发表于 2018-9-29 13:00

不知道为什么发表于 2018-9-29 11:19
加个遍历工作表的循环

如何在增加此代码上增加呢？谢谢

不知道为什么 · 发表于 2018-9-29 15:06

olywo 发表于 2018-9-29 13:00
如何在增加此代码上增加呢？谢谢

用二楼的代码示例：

Sub lqxs()
Dim cel As Range，sht as worksheetfor each sht in worksheets
For Each cel In sht.UsedRange
If cel.Interior.Color = RGB(192, 192, 192) Then
cel.Interior.ColorIndex = xlNone
cel = ""
End If
Next
next
End Sub

olywo · 发表于 2018-10-6 21:22

谢谢你，原来俩个for each 写一起格式是这样的，还得多多学习

		自动登录	找回密码
密码			免费注册

[求助] 单元格指定底色如何清除内容

评分