复制和粘贴行的特定值

Question

这对你来说可能太容易了，但我是 vba 的新手。我有以下代码；在我的主文件打开时打开多个文件。

  Dim StrFile As String
 Dim WB As Workbook
    Dim InputFilePath As String
 InputFilePath = "Z:\1000_Entwicklung\05_PROJECT\0558000_CFT    \055800L_CFT_Projektleitung\99_Arbeitsordner PL\Tanverdi, Yigit\SAA\"
 StrFile = Dir(InputFilePath & "*")

Do While Len(StrFile) > 0
    Set WB = Workbooks.Open(InputFilePath & StrFile)
    WB.Activate
        sheets("data").Select
        sheets("data").Move After:=Workbooks("makrotochange.xlsm").sheets(23)
        StrFile = Dir()
Loop

   Dim copiedSheet As Worksheet
   Dim masterSheet As Worksheet

Set copiedSheet = Worksheets("data")
Set masterSheet= Worksheets("masterSheet")

我想复制 A 列的单元格；乙; C; D 从数据表中的每一行然后将其粘贴到 mastersheets 第一个空行，到 D 列； C;一个; B 按顺序（单元格 A 将粘贴到 masterSheet 中的单元格 D，B 粘贴到 C，C 粘贴到 C，D 粘贴到 B 等）。

行数是动态的，所以我希望能够复制copySheet 包含的任何行的A;B;C;D 并将其粘贴到masterSheets D;C;A;B 单元格中的第一个空行。

有人知道我该怎么做吗？

编辑： 我想要一个copySheet2，它应该操作相同的东西，但它应该将目标（masterSheet）粘贴到下一个空行？

Answer 1

这应该是你所追求的。这是将数据从一个位置复制到另一个位置的最简洁方法，无需在任何地方使用.Select

copiedSheet.Range("A:A").Copy Destination:= masterSheet.Range("D:D")
copiedSheet.Range("B:B").Copy Destination:= masterSheet.Range("C:C")
copiedSheet.Range("C:C").Copy Destination:= masterSheet.Range("A:A")
copiedSheet.Range("D:D").Copy Destination:= masterSheet.Range("B:B")