Question

我的工作簿有三张：Clients，Client Updates和Updates。在“客户”页面上，有100多家公司拥有100多列信息。

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

我遇到的问题是我希望数据库能够自动更新，而无需从“更新”页面进行复制和粘贴。我无法将其复制并粘贴到正确的位置客户页面上的行。

到目前为止我已经尝试了......我知道它非常不正确，但我很难找到任何答案。

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

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

0 个答案: