0 
Dim wb As Workbook

    Set synthese = Sheets("Synthèse")
    Set wb = Workbooks.Open(Filename:="C:\Users\bm00096\Desktop\Stage PMTC AHMAD MUHAMAD 2018\RFE Management\Experimentation of outil and analysis\Evolution RFE_ANALYSIS v3.0.xlsm")
    wb.Sheets("Base").Visible = True
    Sheets("Base").Unprotect "roulage_ASVH"
    wb.Sheets("Base").Select

    i = 1

    While wb.Sheets("Base").Cells(i, 1).Value <> ""
        i = i + 1
    Wend

    synthese.Cells.Range("A2:AI100").Copy
    wb.Sheets("Base").Cells(i, 1).Select
    ActiveSheet.Paste
    Sheets("Base").Protect "roulage_ASVH"
    ActiveWindow.SelectedSheets.Visible = False
    wb.RefreshAll
    wb.Close True
    Application.CutCopyMode = False
    Set wb = Nothing
    Set synthese = Nothing

    Sheets("Synthèse").Unprotect "roulage_ASVH"
    Sheets("Synthèse").Range("A2:AI200").ClearContents
    Sheets("Synthèse").Protect "roulage_ASVH"

End Sub

大家好，基本上我有 300 行来自工作表“Synthèse”的数据，我想将这些数据转移到工作表“Base”上的另一个工作簿中。所以，我写了一个代码来传输这些数据。这些代码工作得很好，它确实传输了数据。但是，问题在于，它只传输 98 行数据，而不是全部 300 数据。我尝试将两个工作簿的格式更改为相同的格式，但它仍然不起作用。请帮我解决这个问题。

4

0 回答 0