麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 如何將資料按指定名稱分類複制到各表格 [打印本頁]

作者: ricky8751 時間: 2010-10-31 04:14 標題: 如何將資料按指定名稱分類複制到各表格

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

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

先謝謝各位了.

作者: oobird 時間: 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

作者: ricky8751 時間: 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

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

作者: gstone 時間: 2010-11-1 07:50

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

作者: oobird 時間: 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，位移多少再加多少或減多少。

作者: gstone 時間: 2010-11-1 08:41

原來如此，我了解了............
往後需位移時就用此寫法來代替offset
才能少打幾個英文字
謝謝版主~

作者: GBKEE 時間: 2010-11-1 19:31

回復 4# gstone
Cells 簡化掉了

Sub EX()
Dim A
Set A = Range("B10")
MsgBox A.Cells(1, 1).Address
MsgBox A.Cells(2, 1).Address
MsgBox A.Cells(1, 2).Address
MsgBox A.Cells(2, 2).Address
End Sub

複製代碼

作者: gstone 時間: 2010-11-2 00:10

原來是Cells的簡化......
清楚了
感謝GBKEE版主

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