[已解决]如何用VBA将某一列中为字体颜色为红的单元格的前一单元格中输入1

zl1975

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2013-2-18 18:29

1. Sub test()
   
2.     Dim i&, x&
   
3.     i = Range("B65536").End(xlUp).Row
   
4.     For x = 1 To i
   
5.         If Cells(x, 2).Font.ColorIndex = 3 Then Cells(x, 1) = 1
   
6.     Next x
   
7. End Sub

复制代码

跳转到最佳答案楼层

fjmxwrs

1. Sub test()
   
2.     Dim i&, x&
   
3.     i = Range("B65536").End(xlUp).Row
   
4.     For x = 1 To i
   
5.         If Cells(x, 2).Font.ColorIndex = 3 Then Cells(x, 1) = 1
   
6.     Next x
   
7. End Sub

复制代码