[發問] 如何將資料按指定名稱分類複制到各表格

附件Temp.zip Sheets [Summary/ Jan/ Feb/ Mar/ Apr/ May/ Jun]

想將要Summary裡資料用Month排序後, 按Jan/ Feb/ Mar 分別複制到各已建立的表格.

先謝謝各位了.

temp.zip (2.26 KB)

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-10-31 09:28 | 只看該作者

For i = 2 To [a65536].End(3).Row
Cells(i, 1).Resize(, 4).Copy Sheets(Cells(i, 1).Value).[a65536].End(3)(2, 1)
Next

TOP

ricky8751

小學生 Rank: 1

帖子: 31
主題: 6
精華: 0
積分: 37
點名: 0
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 10
性別: 男
來自: HK
註冊時間: 2010-10-31
最後登錄: 2017-10-26

3^#

發表於 2010-11-1 00:48 | 只看該作者

For i = 2 To [a65536].End(3).Row
Cells(i, 1).Resize(, 4).Copy Sheets(Cells(i, 1).Value).[a65536].En ...
oobird 發表於 2010-10-31 09:28

謝謝, 以後節省了做表的不少時間~

TOP

gstone

中學生 Rank: 2

帖子: 15
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-9-22
最後登錄: 2016-11-8

4^#

發表於 2010-11-1 07:50 | 只看該作者

請問oobird版主
最後的(2, 1)是省略什麼的簡寫?
經測試，應不是使用offset來位移....
感謝解惑~

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2010-11-1 08:11 | 只看該作者

最後的(2, 1)是省略什麼的簡寫?
不是省略什麼，本來就有的語法。
(1,1)從本儲存格算起(自己也要算)向下1格，向右1格，也就是不位移。
(2,1)從本儲存格算起(自己也要算)向下2格，向右1格，也就是列號向下1格，欄不動
(1,2)從本儲存格算起(自己也要算)向下1格，向右2格，也就是欄號向右1格，列不動
0表示退1格，-1表示退2格，原則就是不位移時用1，位移多少再加多少或減多少。

TOP

gstone