时间戳

首页 > 解决方案 > 在 VBA 中复制时，有没有办法从另一个工作簿复制分组

excel - 在 VBA 中复制时，有没有办法从另一个工作簿复制分组

问题描述

我正在尝试将工作簿中的工作表复制到另一个工作簿中。我有一个单独的功能来循环浏览父文件夹中的文件（源）并将摘要选项卡从文件复制到其指定选项卡中的主文件中。复制到主工作簿时，有没有办法保留与源文件中相同的水平（行）分组？我尝试过的代码如下，但分组没有通过。

Private Function CopyAndPaste(wsCopy As Worksheet, wsDest As Worksheet)
    wsCopy.Range("A1:Z500").EntireRow.Copy
    wsDest.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    wsCopy.Range("A1:Z500").EntireRow.Copy
    wsDest.Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
End Function

谢谢您的帮助。

标签： excelvba

解决方案

要复制分组，它应该如下：

wsCopy.Range("1:500").EntireRow.Copy
wsDest.Range("1:500").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

推荐阅读