如何将数据从一张纸复制到另一张

我想将特定单元格中的数据从一张纸复制到另一张纸的特定单元格。如何将数据从一张纸复制到另一张

这是我尝试

Private Sub CommandButton1_Click() 
Sheets("KeyInformation").Select 
Range("A2:Q2").Select 
Range("A2:Q2").Copy 

Sheets("Factsheet").Select 
Range("B9:B25").Select 
ActiveSheet.Paste 
Sheets("Factsheet").Select 
End Sub

它复制的代码。我如何粘贴我想要的地方？

来源

2016-02-26 Anahit DEV

避免使用选择。

Private Sub CommandButton1_Click() 
Dim ws, ws1 As Worksheet 
Set ws = Sheets("KeyInformation") 
Set ws1 = Sheets("Factsheet") 
ws.Range("A2:Q2").Copy 
ws1.Range("B9").PasteSpecial Paste:=xlPasteAll, Transpose:=True 
Application.CutCopyMode = False 
ws1.Activate 
End Sub

来源

2016-02-26 10:18:31 Neelesh

酷！它的工作原理。只有在应对数据后，我可以如何激活工作表资料表，以便将复制的@Neelesh信息显示出来？ –

完美@Neelesh！还有一个问题，如果我想复制像ws.Range（“A2：Q2”）这样的单元格，复制这个相同的代码是否工作？ –

你是什么意思的一个单元格只有A2？如果是这样，那么ws.range（“A2”）。复制 – Neelesh

，如果你只想要行中的新的工作表复制在相同的位置，你必须声明的位置要粘贴复制的行：

Private Sub CommandButton1_Click() 
Sheets("KeyInformation").Select 
Range("A2:Q2").Select 
Range("A2:Q2").Copy 

Sheets("Factsheet").Select 
' Find the last row of data 
Range("A2:Q2").Select 
ActiveSheet.Paste 
Sheets("Factsheet").Select 
End Sub

来源

2016-02-26 09:28:08

我需要将其复制并粘贴到指定的位置。我试过你的代码，但是我得到了这行Range的错误（“A2：Q2”）。任何想法@nicològrando？ –

你看到什么错误？我在一张空白的工作簿上测试了它，添加了命名表并在这里没有问题地工作...... –

错误是什么？在我的电脑上，我测试和正在工作... –

如何将数据从一张纸复制到另一张

回答

相关问题