工作表A與工作表B之間來回複製 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 工作表A與工作表B之間來回複製

返回列表下一主題上一主題發帖

[發問] 工作表A與工作表B之間來回複製

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

1^# 跳轉到 »

發表於 2012-2-29 12:16 | 顯示全部帖子

回復 1# sammay

Sub XX()
Sheet2.[C18] = Sheet1.[N14] '工作表A => Sheet1 , 工作表B => Sheet2
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

2^#

發表於 2012-2-29 13:59 | 顯示全部帖子

回復 3# sammay

使用VBA編輯器內的工作表名稱Sheet1,Sheet2...此名稱是不會變的(即始是改了每個工作表下方的名稱)

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

3^#

發表於 2012-2-29 16:54 | 顯示全部帖子

回復 5# sammay

不了解你的意思
可否給個範例說明

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

4^#

發表於 2012-3-1 10:24 | 顯示全部帖子

回復 7# sammay

把所有工作表(除工作表B之外)之A2複製到工作表B的A2以下儲存格

Sub AA()
For Each Sh In Sheets
If Sh.Name <> "工作表B" Then
Sheets("工作表B").[A65536].End(xlUp).Offset(1, 0) = Sh.[A2]
End If
Next
End Sub

複製代碼

CopySheets.rar (6.97 KB)

靜思自在 : 願要大、志要堅、氣要柔、心要細。

返回列表下一主題上一主題