EXCEL大師請救我...
2009-09-23 4:09 pm
我目前有1000筆資料在excel檔內A1-A1000我想每一行顯示20筆就自動跳行(而且是跳到D1的格子.下一次跳到G1以此累推)請問VBA的語法要如何寫還是有更好的方法請不要教我一個一個移因為將來可能有超過5000筆請大家幫忙謝謝..............
回答 (2)
2009-09-23 4:47 pm
✔ 最佳答案
圖片參考：http://l.yimg.com/f/i/tw/ugc/rte/smiley_4.gif
請參考此巨集
Sub 按鈕1_Click()
x = Int([A65536].End(xlUp).Row / 20) + 1
For i = 1 To x
Range(Cells((i - 1) * 20 + 1, 1), Cells(i * 20, 1)).Cut
Cells(1, (i - 1) * 3 + 1).Select
ActiveSheet.Paste
Next i
[A1].Select
End Sub
2009-09-24 6:28 am
要用到 offset 和 column 兩個函數，
B1=0
C1=0
D1= OFFSET($A1,20 *(COLUMN(D1)-1)/3,0)
選取 B1:D1, 往右複製到GT吧
再選取 D1：GT1, 往下複製20列
把A21：A1000 刪去
完成
讀一下別人的例子
一樣的問題我回答過多次了:
2009/5/28 http://tw.knowledge.yahoo.com/question/question?qid=1009052706105
2009/6/12 http://tw.knowledge.yahoo.com/question/question?qid=1009061106786
2009/8/31 http://tw.knowledge.yahoo.com/question/question?qid=1609083102252
B1=0
C1=0
D1= OFFSET($A1,20 *(COLUMN(D1)-1)/3,0)
選取 B1:D1, 往右複製到GT吧
再選取 D1：GT1, 往下複製20列
把A21：A1000 刪去
完成
讀一下別人的例子
一樣的問題我回答過多次了:
2009/5/28 http://tw.knowledge.yahoo.com/question/question?qid=1009052706105
2009/6/12 http://tw.knowledge.yahoo.com/question/question?qid=1009061106786
2009/8/31 http://tw.knowledge.yahoo.com/question/question?qid=1609083102252
收錄日期: 2021-04-27 13:12:13
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20090923000010KK01446