VBA将一个sheet中的数据自动复制到另一个

作者：System 时间：2024年09月02日分类：所有,数据库字数：737

这篇文章距离上次修改已过215天，其中的内容可能已经有所变动。

要在VBA中将一个工作表（sheet）中的数据自动复制到另一个工作表，你可以使用以下示例代码：

Sub CopyDataToAnotherSheet()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet

    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 修改为你的源工作表名
    Set destinationSheet = ThisWorkbook.Sheets("Sheet2") ' 修改为你的目标工作表名

    ' 复制源工作表的数据范围到目标工作表
    sourceSheet.Range("A1:Z100").Copy ' 修改为你的数据范围

    ' 粘贴到目标工作表的指定位置
    destinationSheet.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

    ' 取消选中
    Application.CutCopyMode = False
End Sub

确保修改sourceSheet和destinationSheet的名称以匹配你的工作表名称，并且Range("A1:Z100")应该指定为你想要复制的数据范围。这段代码会复制值和数字格式。如果你也想复制公式和其他属性，可以将PasteSpecial参数改为xlPasteAll。

VBA将一个sheet中的数据自动复制到另一个

评论已关闭

推荐阅读