查找记录和更新

Question

我得到了一些excel表，用户必须在sheet2上插入数据列表。 然后用户点击一个按钮，sheet1基于sheet2中的数据插入进行更新。

此代码将查找sheet2中的数据是否缺少，然后正确插入数据。 我还需要有现有的记录opdated。 工作表1上的现有数据已添加带有注释的manuel列，这些注释在数据更新时不应删除。

在Sheet1数据位于从C到N型柱 - 键位于J.

Dim iLast As Long 
Dim iCounter As Integer 

iLast = Sheets(2).Range("I" & Application.Rows.Count).End(xlUp).Row 

Dim rng As Range 

For iCounter = 2 To iLast 
    Set rng = Sheets(1).Range("J:J").Find(Sheets(2).Range("I" & iCounter).Value) 

    If rng Is Nothing Then 
     Sheets(2).Range("B" & iCounter & ":" & "M" & iCounter).Copy 
     Sheets(1).Range("C" & Sheets(1).Range("J" & Application.Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteAll 
     Range("B2").Select 

     'Insert mailto link 
     Selection.Copy 
     Sheets(1).Range("B" & Sheets(1).Range("J" & Application.Rows.Count).End(xlUp).Row).Select 
     'Range("B3").Select 
     ActiveSheet.Paste 
     ActiveSheet.Paste 
     Application.CutCopyMode = False 
    Else 

    'MsgBox "update existing row with new data - how to" 

    End If 

Next iCounter 

Answer 1

你应该能够做到这一点以同样的方式来添加新行。

如果您使用xlPasteValues而不是xlPasteAll，则表1中的注释不应受到影响。

假设您只是复制值并且没有额外的格式或注释需要复制。

我不完全确定你想要达到什么样的目标，这对我来说有点难度，但我认为这就是你想要做的事情？

Dim iLast As Long 
Dim iCounter As Integer 

iLast = Sheets(2).Range("I" & Application.Rows.Count).End(xlUp).Row 

Dim rng As Range 

For iCounter = 2 To iLast 
    Set rng = Sheets(1).Range("J:J").Find(Sheets(2).Range("I" & iCounter).Value) 

    If rng Is Nothing Then 
     Sheets(2).Range("B" & iCounter & ":" & "M" & iCounter).Copy 
     Sheets(1).Range("C" & Sheets(1).Range("J" & Application.Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteAll 
     Range("B2").Select 

     'Insert mailto link 
     Selection.Copy 
     Sheets(1).Range("B" & Sheets(1).Range("J" & Application.Rows.Count).End(xlUp).Row).Select 
     'Range("B3").Select 
     ActiveSheet.Paste 
     ActiveSheet.Paste 
     Application.CutCopyMode = False 
    Else 
     Sheets(2).Range("B" & iCounter & ":" & "M" & iCounter).Copy 
     Sheets(1).Range("C" & rng.Row).PasteSpecial xlPasteValues 
    End If 

Next iCounter