Question

我正在开发一个项目，需要在excel中的工作表之间进行大量的复制和粘贴单元格，这些单元格不合适。我几乎无法对VBA进行编程。我想如果我可以写一个程序（点击或右键单击复制到剪贴板，双击粘贴在不同的工作表中），这可以使我的工作更快。请建议我。

Answer 1

您可以使用excel公式从一张纸复制到另一张

按照本网站上的说明进行操作

http://ccm.net/faq/9795-transfer-data-between-excel-spreadsheets

它基本上是对

说

在目标单元格类型+中然后选择源工作表单击源单元格然后按回车

这些步骤将复制例如工作表1，单元格A1到工作表2单元格A1

公式如下= + Sheet1！A1

我希望这对你有所帮助

Answer 2

这里有几个选项，但我先向您解释一件事。

当您复制和粘贴单元格时，您实际上正在使用Microsoft剪贴板，这是一个相当占用内存的过程，虽然这是转到默认选项，但您可以轻松地将值分配给不具有该值的值。使用夹板。

没有多余的装饰选择：

Sub Copy_and_Paste()
Sheets("Your Sheet Name").Range("Your Range").Copy
Sheets("Your Destination Sheet Name").Range("Your Destination Range").Paste
End sub

示例没有褶边

Sub Copy_and_Paste()
Sheets("Sheet 1").Range("A1:A10").Copy
Sheets("Sheet 2").Range("B1:B10").Paste
' You don't have to paste them in the exact same range.
' Just make sure they are the same size.
End sub

值选项

Sub Value_to_Value()
Sheets("Your Destination Sheet Name").Range("Your Destination Range").value = Sheets("Your Sheet Name").Range("Your Range").value
End sub

示例值

Sub Value_to_Value
Sheets("Sheet 2").Range("B1:B10").value = Sheets("Sheet 1").Range("A1:A10").value
End sub

尝试两者来提出您喜欢的版本。

复制并粘贴VBA

2 个答案: