如何在当前工作表或从一个工作表到另一个工作表中自动复制和粘贴单元格？

要实现在当前工作表内或从一个工作表到另一个工作表自动复制和粘贴单元格值，而无需使用快捷键，本文可以帮助您。

使用公式在当前工作表或从一个工作表到另一个工作表自动复制和粘贴单元格
使用VBA在当前工作表中自动复制和粘贴单元格
使用Kutools for Excel在当前工作表或从一个工作表到另一个工作表复制和粘贴多个区域

使用公式在当前工作表或从一个工作表到另一个工作表自动复制和粘贴单元格

您可以使用公式自动复制和粘贴单元格。请按照以下步骤操作。

1. 对于在当前工作表中复制和粘贴单元格，例如将单元格A1复制到D5，您可以选择目标单元格D5，然后输入=A1并按Enter键获取A1的值。

2. 对于从一个工作表复制到另一个工作表的单元格，例如将Sheet1中的单元格A1复制到Sheet2中的D5，请选择Sheet2中的单元格D5，然后输入=Sheet1!A1并按Enter键获取值。

提示：目标单元格链接到复制的单元格，并且会随着原始单元格的变化而变化。

使用 Kutools AI 解锁 Excel 魔法

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

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

使用VBA在当前工作表中自动复制和粘贴单元格

以下VBA代码可帮助您复制一个单元格或一组单元格并粘贴到当前工作表中的指定单元格。

1. 同时按下Alt + F11键打开Microsoft Visual Basic for Applications窗口。

2. 在Microsoft Visual Basic for Applications窗口中，点击插入 > 模块。然后将下面的VBA代码复制并粘贴到模块窗口中。

VBA代码：在当前工作表中自动复制和粘贴单元格

Sub RangeTest()
    On Error Resume Next
    Dim xRg As Range
    Set xRg = Application.Selection
    Range("A1 ").Copy Range("D5")
    xRg.Select
End Sub

注意：在代码中，A1是您要复制的单元格，D5是放置A1单元格值的目标单元格。对于自动复制和粘贴单元格区域，请将单元格替换为区域，例如将A1替换为A1:A10，将D5替换为D1:D10。

3. 按下F5键运行代码，然后特定单元格（区域）将被复制并自动粘贴到指定单元格（区域），同时也会保留单元格格式。

使用Kutools for Excel在当前工作表或从一个工作表到另一个工作表复制和粘贴多个区域

如果您需要同时复制多个区域，可以尝试Kutools for Excel的多区域复制功能。

1. 按住Ctrl键选择需要复制的多个区域。然后点击Kutools > 多区域复制。参见截图：

2. 在“多区域复制”对话框中，您可以看到所选区域列在“复制区域”框中。然后在“选择性粘贴”部分指定一个选项，根据需要勾选“ 包括行高”或“包括列宽”复选框，最后点击确定按钮。参见截图：

3. 在第二个“多区域复制”对话框中，指定一个空白单元格用于粘贴所选区域，然后点击确定按钮。

注意：如果要将所选区域粘贴到另一个工作表，请选择该工作表中的单元格并在第二个“多区域复制”对话框中点击确定按钮。

现在，所选区域已被复制并粘贴到指定位置。

在当前工作表或从一个工作表到另一个工作表复制和粘贴多个区域

相关文章：

• 如何在Excel下拉列表中选择值时自动填充其他单元格？
• 如何在Excel下拉列表中键入时自动完成？
• 如何在相邻单元格更新时自动在单元格中填充日期？