|
本帖最后由 yangming27 于 2011-10-21 17:09 编辑
上图是带有黄色的单元格,
如何使这些单元格所在的行批量填充为黄色?
如下图:
回复 yangming27 的帖子
- Sub 条件填色()
- Dim Row1, Column1, I, J
- Dim YSDM
-
- YSDM = 6
- With Sheets("Sheet1")
- Row1 = .Range("A65536").End(xlUp).Row
- Column1 = .Range("IV1").End(xlToLeft).Column
- For I = 1 To Row1
- For J = 1 To Column1
- YSDM = .Cells(I, J).Interior.ColorIndex
- If YSDM > 0 Then
- .Range(.Cells(I, 1), .Cells(I, Column1)).Interior.ColorIndex = YSDM
- Exit For
- End If
- Next J
- YSDM = 0
- Next I
- End With
-
- End Sub
复制代码
|
|