[已解决]查找EXCEL中某列中连续两个单元格

xsdcp

各位大侠

          菜鸟求助，怎样用VBA查找EXCEL某列中连续两个非空单元格，并给第二个单元格（附件中箭头所示）填充红色
请各位大大帮忙！先谢了

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-19 17:10

1. Sub 填充()
   
2.     Application.ScreenUpdating = False
   
3.     ROW1 = Range("A" & Rows.Count).End(xlUp).Row
   
4.     Range("A1:A" & ROW1).Interior.ColorIndex = 0
   
5.     For i = 1 To ROW1 - 1
   
6.         If Range("A" & i) <> "" And Range("A" & i + 1) <> "" Then
   
7.             Range("A" & i + 1).Interior.ColorIndex = 3
   
8.         End If
   
9.     Next i
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

303319-VBA-填充单元格颜色.rar (11.04 KB, 下载次数: 11)

2013-6-19 17:10 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

1. Sub 填充()
   
2.     Application.ScreenUpdating = False
   
3.     ROW1 = Range("A" & Rows.Count).End(xlUp).Row
   
4.     Range("A1:A" & ROW1).Interior.ColorIndex = 0
   
5.     For i = 1 To ROW1 - 1
   
6.         If Range("A" & i) <> "" And Range("A" & i + 1) <> "" Then
   
7.             Range("A" & i + 1).Interior.ColorIndex = 3
   
8.         End If
   
9.     Next i
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

303319-VBA-填充单元格颜色.rar (11.04 KB, 下载次数: 11)

2013-6-19 17:10 上传

点击文件名下载附件

ligh1298

楼主，是不是想要这样的？如果你对哪个楼层答案满意，请将该楼层答案设置成“最佳答案”，以示谢意！

xsdcp

谢谢2楼，3楼两大师，正是我想要的效果，再一次感谢你们热心的帮助