我需要在不使用选择和粘贴值的情况下将值(不是公式)从"Regular Tournament"复制到"Score Input-Flights"。有一个简单的公式吗？

Question

我正在寻找一种简单的方法来复制值(省略公式)从一个工作表到另一个不使用.Select和PasteSpecial.Values。我有几百段代码比如这个需要修改的。我已经在网上搜索过了，但是找不到任何有用的东西。

Sheets("Regular Tournament").Select
Range("B22:B221").Select
Selection.Copy
Sheets("Score Input-Flights").Select
Range("D13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Answer 1

让我给你一个简单的想法(在VBA):

Destination_Range.Value = Source_Range.Value

在你的例子中:

Sheets("Score Input-Flights").Range("D13:D212").Value = Sheets("Regular Tournament").Range("B22:B221").Value

在常规Excel中更简单:只需使用以下公式:

='Regular Tournament'!A1