[已解决]将A列填充色为黄色的整行放置到另一个工作表中

wyc645551815

      哪位大师能帮我完成这个不？非常感谢了！
      需将 在库 表里的A列单元格填充色为黄色的整行数据复制粘贴到 出库 表里，只粘贴数值就行，并删除 在库 表里该行数据，且在出库 表里 ”发货日期”列即 O列 的单元格填写成前一天的日期，可变的，如今天做，则是昨天的日期，明天做时，则是今天日期。详见附件！

   非常感谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2022-10-29 11:21

或将
If .Range("A" & I).Interior.ColorIndex = .Cells(1, 1).Interior.ColorIndex Then
改成
If .Range("A" & I).Interior.ColorIndex = 6 Then
但只怕有些系统不将黄色解读为 6

跳转到最佳答案楼层

zjdh

现将A1单元填上“黄色”，再运行。
Sub ck()
    Dim I
    Application.DisplayAlerts = False
    With Sheets("在库")
        For I = .[A65536].End(xlUp).Row To 2 Step -1
            If .Range("A" & I).Interior.ColorIndex = .Cells(1, 1).Interior.ColorIndex Then
                .Range("A" & I & ":N" & I).Copy Sheets("出库").Range("A65536").End(3)(2)
                .Rows(I).Delete
            End If
        Next
    End With
    With Sheets("出库")
        .Cells.Interior.Pattern = xlNone
        For I = .Range("O65536").End(3).Row + 1 To .Range("A65536").End(3).Row
            .Cells(I, "O") = Date - 1
        Next
    End With
    Application.DisplayAlerts = True
    MsgBox "操作完毕"
End Sub

zjdh

或将
If .Range("A" & I).Interior.ColorIndex = .Cells(1, 1).Interior.ColorIndex Then
改成
If .Range("A" & I).Interior.ColorIndex = 6 Then
但只怕有些系统不将黄色解读为 6

wyc645551815

很好，非常感谢哦！