0

我需要看看是否有人可以帮助我解决我的 excel 代码。我正在尝试将具有红色突出显示的单元格的行自动复制到另一张纸上。我有两张表,一张 ST 审核历史表和一张跟踪表。

我能够使此代码适用于 1 行,但我需要它适用于第 3 行以下的所有行。一旦单元格不再是红色,我还需要它从跟踪表中消失,但现在它停留在那里,单元格只是将红色高光带走。任何帮助是极大的赞赏。我尝试了另一个论坛,但似乎没有人知道如何解决它(或者他们没有回复:()

代码:

Private Sub Worksheet_Activate()
Cells.Clear
Sheets("ST Audit history").Rows(3).Copy Destination:=Rows(2)
For N = 2 To Sheets("ST Audit history").UsedRange.Rows.Count
  If Sheets("ST Audit history").Cells(N, 6).Interior.ColorIndex = 3 Then
    Sheets("ST Audit history").Rows(N).Copy Destination:=Rows(UsedRange.Rows.Count + 1)
  End If
Next N
End Sub
4

1 回答 1

0
Private Sub Worksheet_Activate()
Dim shtSrc as worksheet, rw as long
    me.Cells.Clear
    set shtSrc=Sheets("ST Audit history")
    shtSrc.Rows(3).Copy Destination:=me.Rows(2)
    rw=3
    For N = 2 To shtSrc.UsedRange.Rows.Count
        If shtSrc.Cells(N, 6).Interior.ColorIndex = 3 Then
            shtSrc.Rows(N).Copy Destination:=Me.Rows(rw)
            rw=rw+1
        End If
    Next N
End Sub
于 2013-08-01T17:48:19.213 回答