如何将最近添加的单元格值复制到从不同 sheet 到活动单元格的范围内？

Question

我正在尝试在 sheet1 中编写代码，根据 sheet2 中的日期添加最近的日期。

   Sheet1                              Sheet2

    A                                    A

50  01/02/2019                 76     01/02/2019

51  01/03/2019                 77     01/03/2019 

52  01/04/2019                 78     01/04/2019 

                               79     01/05/2019 

                               80     01/06/2019

我想过复制整列然后粘贴，但这样不专业，数据可能有几千行。

相反，我如何检查 sheet2（ColumnA）中不在 sheet1 中的最近日期并复制它们？

到目前为止，这是我的代码

Sub Addrecentmonth()

Dim M1 As Worksheet
Dim FinalRowM1 As Long
Dim FinalRowPM As Long
Dim ProbabilityModel As Worksheet

Set M1 = ActiveWorkbook.Worksheets("M1")
Set PM = ActiveWorkbook.Worksheets("ProbabilityModel")

FinalRowM1 = M1.Range("A" & M1.Rows.Count).End(xlUp).Row
FinalRowPM = PM.Range("A" & M1.Rows.Count).End(xlUp).Row

If PM.Range("A" & FinalRowPM).Value <> M1.Range("A" & FinalRowM1).Value Then

    M1.Range("A" & FinalRowM1).Select

    PM.Cells(Rows.Count, "A").End(xlUp).Offset(1). _
      PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=True

    Application.CutCopyMode = False

End If

End Sub

我想出了如何在最后使用的单元格之后粘贴目标，但我找不到从其他单元格复制最近日期的方法 sheet。

Answer 1

如果日期像您的示例一样从最旧到最新排序，您可以 select Sheet2 的最后一个单元格，其中日期小于 Sheet1 的最后一个单元格。

这段代码可以做到：

Dim currentDate As Long
Dim Scanner As Range

currentDate = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Value
'currentDate contains the value of Sheet1 last cell'
Set Scanner = Sheet2.Range("A" & Sheet2.Rows.Count).End(xlUp)
'Here, Scanner is the last cell of Sheet2'

While Scanner.Value > currentDate
    'Scanner goes upwards until it finds the current date'
    Set Scanner = Scanner.Offset(-1, 0)
Wend

然后您可以将 Scanner 下面的所有单元格复制到 Sheet1 的末尾。

如何将最近添加的单元格值复制到从不同 sheet 到活动单元格的范围内？

How can I copy most recent cells value added in a range from a different sheet to the active one?

excel

vba

copy-paste