根据特定的单词自动将单元格复制到另一个工作表

Question

当单词“过期”出现在单元格中（在H列中）时，我希望该行中的名称（在A列中）和日期（在F列中）自动复制并粘贴到另一个工作表（名为HomePage）中并显示在列C12和E12中。

我有以下代码，但它剪切并粘贴了整行。 我只想将名称和日期复制粘贴到我的主页上。

Private Sub Worksheet_Change (ByVal Target As Range)
  If Target.Column = 8 Then
    If Target.Value = "Overdue" Then
      R = Target.Row
      Rows(R).Cut
      Worksheets("HomePage").Select
      With ActiveSheet
         lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row + 1
         .Cells(lastrow, 1).Select
         .Paste
      End With
    End If
  End If
End Sub

Answer 1

由于只需要两个单元格，为什么要复制和粘贴？ 只需直接分配值即可。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R As Long
    If Target.Column = 8 Then
        If Target.Value = "Overdue" Then
            With Sheets("Homepage")
                R = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
                .Cells(R, 3) = Target.Offset(0, -7) ' Column C = Column A
                .Cells(R, 5) = Target.Offset(0, -2) ' Column E = Column F
            End With
        End If
    End If
End Sub

Answer 2

根据您的叙述

我希望该行中的名称（在A列中）和日期（在F列中）自动复制并粘贴到另一个工作表（名为HomePage）中，并显示在C12和E12列中。

将以下代码放在工作表代码窗格中

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column = 8 And .Value = "Overdue" Then
            Sheets("Homepage").Range("C12").Value = Range(.row, "A")
            Sheets("Homepage").Range("E12").Value = Range(.row, "F")
        End If
    End With
End Sub