请教:如何把一个区域中单元格底纹为白色的数据去掉!

天啸 · 发表于 2006-10-12 20:58:00

请指点迷津!

如何将单元格底纹为白色的数据去掉或改为0

tangqp · 发表于 2006-10-12 21:32:00

双色球,我也常买

Sub main()
For i = 2 To 50
      For j = 2 To 6
         Sheet1.Cells(j, i).Select
         If Selection.Interior.ColorIndex = 2 Then
            Cells(j, i) = ""
         End If
      Next j
Next i
End Sub

实际情况需做些改动

天啸 · 发表于 2006-10-13 05:53:00

先谢，可是我要把它放在哪儿呢[em04]

aydl1014 · 发表于 2006-10-13 22:17:00

提示: 作者被禁止或删除内容自动屏蔽

天啸 · 发表于 2006-10-14 08:31:00

解决了，我做一小小改动，因为有些单元格的底纹是设为自动的

Sub main()
For i = 2 To 50
      For j = 24 To 266
         Sheet1.Cells(j, i).Select
         If Selection.Interior.ColorIndex <＝ 2 Then
            Cells(j, i) = ""
         End If
      Next j
Next i
End Sub

多谢tangqp[em02]

[此贴子已经被作者于2006-10-14 0:45:56编辑过]

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

请教:如何把一个区域中单元格底纹为白色的数据去掉!

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	4^# 发表于 2006-10-13 22:17:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡