あなたは私が達成しようとしていますし、実際に何が起こっているか見て、この絵でECH他

Question

の最上部にある2つの他のワークシートに2つのワークシートから

をデータのコピー。データが最初に配置されたデータを上書きしていると判断できました。

BCRSデータBCRS QA BCRS QAへ

MIMデータ（次の空行にコピー）

にMIM QAに

1. MIMデータ：何が起こっすべきは、私はからデータをコピーする必要がありますMIM QAへのBCRSデータ（次の空の行にコピー）

これは私が使用しているコードです。私は運のないこのいくつかのバリエーションを試しました。同様のことをしていた別のワークシートからこのコードを借りました。つまり、新しいデータを取り出して空の次の行に追加します。

Sub QA_Data_Copy_1603_A() 

Application.ScreenUpdating = False 

    Dim March_Swivel As Workbook ' Source Workbook 
     Set March_Swivel = Workbooks("Swivel - Master - March 2016.xlsm") 
    Dim MIM_Data As Worksheet ' Source Worksheet 
     Set MIM_Data = March_Swivel.Sheets("MIM Data") 
    Dim BCRS_Data As Worksheet ' Source Worksheet 
     Set BCRS_Data = March_Swivel.Sheets("BCRS Data") 
    Dim MIM_QA As Worksheet ' Destination Worksheet 
     Set MIM_QA = March_Swivel.Sheets("MIM QA") 
    Dim BCRS_QA As Worksheet ' Destination Worksheet 
     Set BCRS_QA = March_Swivel.Sheets("BCRS QA") 

    ' Source Rows 

    Dim MLastRow As Long 
     MLastRow = MIM_Data.Range("A" & Rows.Count).End(xlUp).row 
    Dim BLastRow As Long 
     BLastRow = BCRS_Data.Range("A" & Rows.Count).End(xlUp).row 

    ' Destination Rows 

    Dim MRow As Long 
     MRow = MIM_QA.Cells(Rows.Count, 1).End(xlUp).row 
    Dim BRow As Long 
     BRow = BCRS_QA.Cells(Rows.Count, 1).End(xlUp).row 


     MIM_Data.Range("A2:J" & MLastRow).Copy Destination:=MIM_QA.Range("A" & MRow + 1) 
     BCRS_Data.Range("A2:J" & BLastRow).Copy Destination:=BCRS_QA.Range("A" & BRow + 1) 
     MIM_Data.Range("A2:J" & MLastRow).Copy Destination:=BCRS_QA.Range("A" & BRow + 1) 
     BCRS_Data.Range("A2:J" & BLastRow).Copy Destination:=MIM_QA.Range("A" & MRow + 1) 

    Worksheets("BCRS Data").Columns("A:J").AutoFit 
    Worksheets("MIM Data").Columns("A:J").AutoFit 
    Worksheets("BCRS QA").Columns("A:J").AutoFit 
    Worksheets("MIM QA").Columns("A:J").AutoFit 

    Call QA_Color_Text 

    Application.ScreenUpdating = True 
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select 

End Sub 

Answer 1

データを2回目に移動する前に、最後の行を再計算する必要があります。

により、私は私のテストの設定方法に以下のコードのいくつかの修正ができますが、再計算を見ることができます...

Option Explicit 

Sub QA_Data_Copy_1603_A() 

Application.ScreenUpdating = False 

' Dim March_Swivel As Workbook ' Source Workbook 
'  Set March_Swivel = Workbooks("Swivel - Master - March 2016.xlsm") 
    Dim MIM_Data As Worksheet ' Source Worksheet 
     Set MIM_Data = Sheets("MIMData") 
    Dim BCRS_Data As Worksheet ' Source Worksheet 
     Set BCRS_Data = Sheets("BCRSData") 
    Dim MIM_QA As Worksheet ' Destination Worksheet 
     Set MIM_QA = Sheets("MIMQA") 
    Dim BCRS_QA As Worksheet ' Destination Worksheet 
     Set BCRS_QA = Sheets("BCRSQA") 

    ' Source Rows 

    Dim MIMDataLRow As Long 
     MIMDataLRow = MIM_Data.Range("A" & Rows.Count).End(xlUp).Row 
    Dim BCRSDataLRow As Long 
     BCRSDataLRow = BCRS_Data.Range("A" & Rows.Count).End(xlUp).Row 

    ' Destination Rows 

    Dim MIMQALRow As Long 
     MIMQALRow = MIM_QA.Cells(Rows.Count, 1).End(xlUp).Row 
    Dim BCRSQALRow As Long 
     BCRSQALRow = BCRS_QA.Cells(Rows.Count, 1).End(xlUp).Row 


     MIM_Data.Range("A2:J" & MIMDataLRow).Copy Destination:=MIM_QA.Range("A" & MIMQALRow + 1) 
     MIMQALRow = MIM_QA.Cells(Rows.Count, 1).End(xlUp).Row 
     BCRS_Data.Range("A2:J" & BCRSDataLRow).Copy Destination:=MIM_QA.Range("A" & MIMQALRow + 1) 

     BCRS_Data.Range("A2:J" & BCRSDataLRow).Copy Destination:=BCRS_QA.Range("A" & BCRSQALRow + 1) 
     BCRSQALRow = BCRS_QA.Cells(Rows.Count, 1).End(xlUp).Row 
     MIM_Data.Range("A2:J" & MIMDataLRow).Copy Destination:=BCRS_QA.Range("A" & BCRSQALRow + 1) 

' Worksheets("BCRS Data").Columns("A:J").AutoFit 
' Worksheets("MIM Data").Columns("A:J").AutoFit 
' Worksheets("BCRS QA").Columns("A:J").AutoFit 
' Worksheets("MIM QA").Columns("A:J").AutoFit 

' Call QA_Color_Text 

    Application.ScreenUpdating = True 
' Range("A" & Rows.Count).End(xlUp).Offset(1).Select 

End Sub