vba - 匹配两张表中的单元格值并粘贴到满足值的位置，从下面的一个单元格开始

Question

我是 VBA 的新手，我使用的是 Microsoft Office Excel 2007，我阅读了论坛，但这对我来说似乎是不可能的。我有当前代码，它复制一张工作表并在日期上添加一天，还复制一系列包含工作表中重要信息的单元格，以便能够将其粘贴到带有实时信息的日历中，我需要将其粘贴到日期是相同的，并且比该值低一个单元格，可以位于特定范围内的任何位置。

Sub CopierPetete()
 ActiveWorkbook.ActiveSheet.Copy _
        After:=ActiveSheet
    'update date
        [J1].Value = [J1].Value + 1

   'THIS IS MY POOR ATTEMPT TO MAKE IT WORK
    If Sheets("Sheet5").Range("A1:K100").Value = ActiveSheet.Range("J1").Value Then _  

        ActiveSheet.Range("AA100:AC121").Select
            Selection.Copy
        Sheets("Sheet5").Select
            Sheets("Sheet5").Pictures.Paste Link:=True

    End If

End Sub

我需要它来匹配 ActiveAheet 中的值细胞 J1与 Sheet5 上的任何单元格, 并粘贴为 Pictures.Paste Link=True (或者，如果您对显示实时信息的方式有更好的想法)在 Sheet5 上满足值的地方，下面一个单元格。

这里是 a link to the project !

Answer 1

如果我理解得很好，您打算做的是检查 ActiveSheet > 单元格 J1 的值是否存在于 A1 到 K100 范围内名为“Sheet5”的工作表中。也就是说，如果 Excel 找到 A1 到 K100 与 J1 值匹配的任何单元格，请复制粘贴图片。

这是一个尝试:

Sub CopierPetete()
    Dim rFind as Range

    ActiveWorkbook.ActiveSheet.Copy _
        After:=ActiveSheet
    'update date
        [J1].Value = [J1].Value + 1

    'Find returns a range object, so we use Set
    Set rFind = Worksheets("Sheet5").Range("A1:K100").Find(ActiveSheet.Range("J1").Value, LookIn:=xlValues, lookAt:=xlWhole)

    If Not rFind is Nothing Then
        ActiveSheet.Range("AA100:AC121").Copy
        Worksheets("Sheet5").Activate
        Worksheets("Sheet5").Range(rFind.Address).Offset(0, 1).Activate
        Worksheets("Sheet5").Pictures.Paste Link:=True
    End If
End Sub