標題: [發問] 複製儲存格問題 [打印本頁]

---

作者: caichen3    時間: 2012-5-16 14:12     標題: 複製儲存格問題

請問大大們，如何將sheet1.[A1:E2]的內容複製到sheet2.[A1:B5]中呢？？

---

作者: freeffly    時間: 2012-5-16 14:32

本帖最後由 freeffly 於 2012-5-16 14:33 編輯

回復 1# caichen3
這各嗎
我是用錄製巨集方式修改

1. Sub Macro11()
   
2.     Sheets("Sheet1").Range("A1:E2").Copy
   
3.     Sheets("Sheet2").Range("A1").PasteSpecial xlPasteAll, Transpose:=True
   
4. End Sub

複製代碼

---

作者: caichen3    時間: 2012-5-16 15:34

如果是希望在sheet1中按下按鈕便可以複製到sheet2呢？？

---

作者: freeffly    時間: 2012-5-16 16:04

回復 3# caichen3

在工作表新增按鈕並為其指定巨集

---

作者: caichen3    時間: 2012-5-16 16:29

Private Sub CommandButton1_Click()
Sheet1.Range("A1:E2").Select
Selection.Copy
Sheet2.Range("A1").Select
Selection.PasteSpecial Transpose:=True
End Sub
紅色的程式碼執行出錯，是為什麼呢？？

---

作者: freeffly    時間: 2012-5-16 17:28

回復 5# caichen3


    2007版的可以那樣寫嗎?
    sheet1 跟sheets(1)一樣嗎?
    我是用2003版

    你如果要在你的檔案試
   要先把第2各工作表清空

---

作者: register313    時間: 2012-5-16 18:44

回復 5# caichen3

sheet1工作表模組

1. Private Sub CommandButton1_Click()
   
2. Sheet1.Range("A1:E2").Select
   
3. Selection.Copy
   
4. Sheet2.Activate          '加這句,讓Sheet2為作用工作表
   
5. Sheet2.Select             '或加這句,讓Sheet2為作用工作表
   
6. Sheet2.Range("A1").Select
   
7. Selection.PasteSpecial Transpose:=True
   
8. End Sub   

複製代碼

用2#
sheet1工作表模組

1. Private Sub CommandButton1_Click()
   
2. Sheets("Sheet1").Range("A1:E2").Copy
   
3. Sheets("Sheet2").Range("A1").PasteSpecial xlPasteAll, Transpose:=True
   
4. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)