如何將數據從一張紙複製到另一張

我想將特定單元格中的數據從一張紙複製到另一張紙的特定單元格。如何將數據從一張紙複製到另一張

這是我嘗試

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？ –

你看到什麼錯誤？我在一張空白的工作簿上測試了它，添加了命名錶並在這裏沒有問題地工作...... –

錯誤是什麼？在我的電腦上，我測試和正在工作... –

如何將數據從一張紙複製到另一張

回答

相關問題