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

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

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 ，下面的一个单元格中满足该值。

这是一个项目的链接 ！

Answer 1

如果我理解的很好，你打算做的是检查在A1到K100范围内名为“Sheet5”的工作表中是否存在ActiveSheet>单元格J1的值 。 也就是说，如果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