将行复制到Excel VBA上正确行的新工作表中

将行复制到Excel VBA上正确行的新工作表中,vba,excel,Vba,Excel,我有一本有三张纸的工作簿:客户端,客户端更新和更新。 在客户页面上,有100多家公司有100多栏信息 在客户端更新中,有一个下拉菜单,可以从客户端列表中进行选择,客户端页面中的所有信息将以易于阅读的列形式显示。该列旁边有一个选项,用于更改旧信息。通过输入changes,它会被更新到Updates页面,在该页面中,所有旧信息和新信息都被放回行形式,然后被复制回原始数据库 我遇到的问题是,我希望数据库能够自动更新,而不必从更新页面复制和粘贴。。我无法将其复制然后粘贴到“客户端”页面上的正确行 到目前

我有一本有三张纸的工作簿:
客户端
客户端更新
更新
。 在客户页面上,有100多家公司有100多栏信息

在客户端更新中,有一个下拉菜单,可以从客户端列表中进行选择,客户端页面中的所有信息将以易于阅读的列形式显示。该列旁边有一个选项,用于更改旧信息。通过输入changes,它会被更新到Updates页面,在该页面中,所有旧信息和新信息都被放回行形式,然后被复制回原始数据库

我遇到的问题是,我希望数据库能够自动更新,而不必从更新页面复制和粘贴。。我无法将其复制然后粘贴到“客户端”页面上的正确行

到目前为止,我所尝试的……我知道这是非常不正确的,但我很难找到任何答案

This is my latest attempt... 
Dim rng1 As Range 
Dim rng2 As Range 
Set rng1 = ThisWorkbook.Worksheets(2).Range("D7:BT7") 
Set rng2 = ThisWorkbook.Worksheets(4).Range("A7:A134") 

rng1.Select rng1.Copy 
For Each i In rng2 
    If rng1.Cells("E7") = rng2.Cells("A" & i) Then 
        Range("A" & i).Select  
        Range("A" & i).PasteSpecial Paste = xlPasteValues   
    End If 
Next i

请分享您尝试过的内容。您知道粘贴到哪里吗?还是需要先找到要粘贴到的单元格?此外,如果数据不敏感,图片也会很有用。如果您将图片链接(在imgur上)添加到您的帖子或评论中,我可以将其添加到帖子中。@Byron,不幸的是,数据敏感,因此我无法发布图像。我需要宏能够找出正确的行来粘贴它,因为“更新”选项卡一次只有一行数据信息,与从下拉菜单中选择的客户端名称一致。你能用
asd
类型数据替换真实数据以显示结构吗?@Byron,我有照片,但不幸的是,网站不允许我发布它们