Question

我需要看看是否有人可以帮我解决我的Excel代码问题。我正在尝试将一个突出显示为红色的单元格的行自动复制到另一个工作表。我有2张纸，ST Audits历史记录表和跟踪表。

我能够让这段代码适用于1行，但是我需要它来处理第3行的所有行。一旦细胞不再是红色，我还需要它从跟踪表上消失，但现在它停留在那里，细胞只是将红色高光消失。任何帮助是极大的赞赏。我尝试了另一个论坛，但似乎没有人知道如何修复它（或者他们不回复:(）

CODE：

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

Answer 1

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

在excel 2010中将带有红色突出显示单元格的行从一个工作表复制到另一个工作表

1 个答案: