Question

我知道这个问题已经解决了很多时间，但我无法解决。

这是我的代码：

Sub MàJ_Pluri()
'
' MàJ_Pluri Macro
'

'chemin vers fichier pluri = chemin2
    Range("U35").Select
    Selection.Copy
    Range("U36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Dim chemin2 As String
    chemin2 = Range("U36").Value

    Dim chemin As String
    Année = Range("C4").Value

    Sheets("Création DC").Select
    Sheets("Suivi Pluri-annuel").Visible = True
    Rows("3:3").Select
    Selection.Copy

    Workbooks.Open Filename:= _
        chemin2 _
        , UpdateLinks:=0
'
    ActiveSheet.ShowAllData
'
    Dim LastRow As Integer
    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.Range("$A$2:$AT" & LastRow).AutoFilter Field:=1, Criteria1:=Année
    Range("A2").Select
    ActiveCell.Offset(2, 0).Select
    ActiveCell.EntireRow.Insert
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Windows("Gestion DC projet V.2.2.xlsm").Activate
    Sheets("Suivi Pluri-annuel").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Création DC").Select
    Range("C2:D2").Select




End Sub

所以基本上，我的目标是在第一个工作簿中打开工作表，复制第3行中的内容，打开第二个工作簿，在第2行下面插入一个空行，然后粘贴到这一行（这总是4）。除了没有任何东西在行中复制外，一切正常。

你有什么想法吗？非常感谢帮助！

谢谢！

Answer 1

首先打开工作簿，将它们分配给变量，然后执行其余操作。

没有复制，因为您正在复制然后打开下一个工作簿，因此复制方法会自动清除。

VBA将一行从工作簿复制到另一个

1 个答案: