[已解决]求助：如何参照单元格的颜色批量填充整行的颜色？

那么的帅

回复 yangming27 的帖子

1. 
   
2. Sub 条件填色()
   
3.     Dim Row1, Column1, I, J
   
4.     Dim YSDM
   
5.    
   
6.     YSDM = 6
   
7.     With Sheets("Sheet1")
   
8.         Row1 = .Range("A65536").End(xlUp).Row
   
9.         Column1 = .Range("IV1").End(xlToLeft).Column
   
10.         For I = 1 To Row1
    
11.             For J = 1 To Column1
    
12.                     YSDM = .Cells(I, J).Interior.ColorIndex
    
13.                 If YSDM > 0 Then
    
14.                     .Range(.Cells(I, 1), .Cells(I, Column1)).Interior.ColorIndex = YSDM
    
15.                     Exit For
    
16.                 End If
    
17.             Next J
    
18.             YSDM = 0
    
19.         Next I
    
20.     End With
    
21.    
    
22. End Sub
    
23. 
    

复制代码

yangming27

回复 那么的帅 的帖子

此前还真不熟悉宏，连怎么调出来都不知道
通过这个问题了解了宏的使用
一举双得啊！

wenpang

解說詳細~~~感謝唷!!!!!!!!!!!!!!

yangming27

回复 wenpang 的帖子

你是指我问的详细吗？

w2001pf

学习了哟。