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

问题描述

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

I want to copy the data from specific cells from one sheet to another sheet's specific cells.

这是我尝试的代码

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

它已复制.如何粘贴到我想要的地方?

It copied. How can I paste where I want?

推荐答案

避免使用select.

Avoid using select.

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

这篇关于如何将数据从一张纸复制到另一张纸的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！