範囲内の値を一致させ、他のシートにデータをコピーして挿入します。

Question

既存のデータで約50枚、50枚のいずれかと一致する更新データの列を含む1枚のマスターシートがあります。

B2：Z2（MasterSheet）の値がブック内のいずれかのシートのB2：H2の値と一致する場合、一致するセル以下のすべてのデータが（MasterSheet）からコピーされ、既存のデータを上書きせずに一致するセルのすぐ下にある、一致する値を含むシート。

Mastersheet with updated data

Matches values in Sheet10, inserts the data from MasterSheet without overwriting existing ones(text in purple)

私は、次のコードでそれを試してみたが、これまでのところ、私はエラーを受け取った、それは私が何をしたい達成するかどうさえわかりません。私は明らかにここに新しいですが、私は誰かが正しい方向に私を向けることを願っています。私はあなたが提供できるどんな助けにも感謝します。ありがとうございました！

 

Sub InsertUpdatedMeasurement() 
    Dim sRange As Range, Rng As Range, WS As Worksheet, FindString As String 
    FindString = Sheets("MasterSheet").Range("B2:Z2").Value 

    For Each WS In ActiveWorkbook.Worksheets   
    LastRow = Sheets("MasterSheet").Range(Rows.Count,"B2:Z2").End(xlUp).Row.Offset(,1) 

    If WS.Name <> "MasterSheet" Then 
     WS.Activate 

     LastRow2 = ActiveSheet.Range(Range.Count "B2:Z2").End(xlUp).Row.Offset(,1) 
     Set sRange = ActiveSheet.Range("B2:Z2" & LastRow2) 

     With sRange 
     Set Rng = .Find(What:=FindString, _ 
      After:=.Cells(1), _ 
      LookIn:=xlValues, _ 
      LookAt:=xlWhole, _ 
      SearchOrder:=xlByRows, _ 
      SearchDirection:=xlPrevious, _ 
      MatchCase:=False)   

     If Not Rng Is Nothing Then 
      Rng.Copy  
      ActiveSheet.Rows(Rng).Selection.Insert.Shift:=xlDown  
      Application.CutCopyMode = False 
      LastRow1 = LastRow1 + 1   
     End If 
     End With 
    End If  
    Next Ws 

    Sheets("MasterSheet").Activate 
    Application.ScreenUpdating = True  
End Sub 

Answer 1

それは全体のコードを書き換えることなく、良い答えを与えることは難しいです。うまくいけば、これはあなたのエラーを越えさせるでしょう。

これらのラインを取り付け

LastRow2 = ActiveSheet.Range（Range.Count "B2：Z2"）。終了（xlUp）.Row.Offset（1）

セットsRange = ActiveSheet。レンジ（ "B2：Z2" & LastRow2）この行で

設定sRange =範囲（ "B2：Z2 」、範囲（ "B" & Rows.Count）.END（xlUp））。（オフセット、1）

は、あなたがRngを複製しようとしている表示されます。

Rng.Copy 
ActiveSheet.Rows(Rng).Selection.Insert.Shift:=xlDown 

Application.CutCopyMode = False 

これは、範囲をシフトダウンします

Rng.Insert.Shift：= xlDown、Cop​​yOrigin：= xlFormatFromLeftOrAbove