如何在Excel中创建一个命令按钮来复制和粘贴数据？

假设您需要在更改数据后频繁地将某个单元格区域复制到其他位置，手动复制粘贴的方法会显得繁琐且耗时。如何让这个复制粘贴的过程自动运行呢？本文将向您展示如何使用命令按钮通过单击操作即可完成数据的复制和粘贴。

使用VBA代码创建一个用于复制和粘贴数据的命令按钮

使用VBA代码创建一个用于复制和粘贴数据的命令按钮

请按照以下步骤操作，以便在单击命令按钮时自动复制和粘贴数据。

1. 通过点击“开发工具” > “插入” > “命令按钮（ActiveX控件）”来插入一个命令按钮。参见截图：

2. 在工作表中绘制一个命令按钮并右键单击它。从上下文菜单中选择“查看代码”。

3. 在弹出的“Microsoft Visual Basic for Applications”窗口中，请用以下VBA代码替换代码窗口中的原始代码。

VBA代码：使用命令按钮在Excel中复制和粘贴数据

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

注意：在代码中，CommandButton1是您插入的命令按钮的名称。A1:C17是要复制的区域，J1:L17是粘贴数据的目标区域。请根据需要进行修改。

4. 按Alt + Q键关闭“Microsoft Visual Basic for Applications”窗口，并关闭“开发工具”选项卡下的设计模式。

5. 现在单击命令按钮，A1:C17范围内的所有数据将被复制并粘贴到J1:L17范围内，不包括单元格格式。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中通过命令按钮保存并关闭活动工作簿而不提示？
• 如何在Excel中始终浮动显示工作表上的命令按钮？
• 如何在Excel中通过命令按钮更新或插入（当前）日期和时间？
• 如何在Excel中使用命令按钮更改指定单元格的值？
• 如何在Excel中使用命令按钮将活动工作表另存为PDF文件？
• 如何在Excel中通过命令按钮自动插入一个空白新行？