caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-5-16 14:12 | 只看該作者

[發問] 複製儲存格問題

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

Book1.rar (8.28 KB)

樓主熱帖

寶寶

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

2^#

發表於 2012-5-16 14:32 | 只看該作者

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

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

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

複製代碼

字典兩各字還真難理解

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

3^#

發表於 2012-5-16 15:34 | 只看該作者

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

寶寶

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2012-5-16 16:04 | 只看該作者

回復 3# caichen3

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

字典兩各字還真難理解

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

5^#

發表於 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
紅色的程式碼執行出錯，是為什麼呢？？

寶寶

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

6^#

發表於 2012-5-16 17:28 | 只看該作者

回復 5# caichen3

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

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

字典兩各字還真難理解

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

7^#

發表於 2012-5-16 18:44 | 只看該作者

回復 5# caichen3

sheet1工作表模組

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

複製代碼

用2#
sheet1工作表模組

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

複製代碼

TOP