返回列表 上一主題 發帖

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
1# 跳轉到 »
發表於 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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 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

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題