请大神帮忙，把（D列）状态。.......

gwjkkkkk

..............

Qs18

1. Sub qs() '2024\09\10
   
2. Dim r, i, rng As Range
   
3.     With Sheet1
   
4.     r = Sheet1.Range("a65536").End(3).Row
   
5.     Set rng = Sheet1.Rows(1)
   
6.     For i = 2 To r
   
7.         If .Range("D" & i).Interior.Color = 15773696 And InStr("完0", .Range("d" & i).Value) = 0 Then
   
8.             Set rng = Union(rng, Rows(i))
   
9.         End If
   
10.     Next
    
11.     End With
    
12.     rng.Copy
    
13.     Sheet2.Range("a1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, _
    
14.                               SkipBlanks:=False, Transpose:=False
    
15.     Application.CutCopyMode = False
    
16.     MsgBox "完成！"
    
17. End Sub
    
18. 
    

复制代码

Qs18

试试。。。。。。。。。。。。

Qs18

试试。。。。。。