vba中删除指定行怎么弄啊？？

zhangwwt 2012-07-18 04:05:29

我想删除指定行
删除红色单元格所在的行与绿色单元格所在的行的全部内容？？？
怎么写啊？

另：怎么查单元格颜色的编号？？？

...全文

1861 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhyj_88 2012-09-07

打赏
举报

[Quote=引用 2 楼的回复:]
'以下程序为判断第一行至第1000行中有没有红色和绿色的行,有的话,就把该行删除.

Sub Macro1()

For i = 1 To 1000
If Rows(i).Interior.ColorIndex = 3 Or Rows(i).Interior.ColorIndex = 10 Then
Rows(i).Delete Shift:=xlUp
i = i - 1……
[/Quote]
程序应这样写：
Sub Macro1()
For i = 1000 To 1 Step -1
If Rows(i).Interior.ColorIndex = 3 Or Rows(i).Interior.ColorIndex = 10 Then
Rows(i).Delete Shift:=xlUp
i = i - 1
End If
Next
End Sub

zhyj_88 2012-09-07

打赏
举报

woodmanhe 2012-09-03

打赏
举报

是删除内容还是删除行？

kenyonzhang 2012-08-07

打赏
举报

不太清楚你的问题，象以上的例子，是不是只要删除第二行和第三行，因为只有这两行在A和b之前。

zhangwwt 2012-07-30

打赏
举报

是这样的
A
f
h
b
h
j
A
b
s
s
A
d
B
f

我要A和b之间所有的行都删掉，怎么弄呢

kenyonzhang 2012-07-21

打赏
举报

'以下程序为判断第一行至第1000行中有没有红色和绿色的行,有的话,就把该行删除.

Sub Macro1()

For i = 1 To 1000
If Rows(i).Interior.ColorIndex = 3 Or Rows(i).Interior.ColorIndex = 10 Then
Rows(i).Delete Shift:=xlUp
i = i - 1
End If
Next
End Sub

龙湖金风 2012-07-18