工作

修改巨集,複製換行 - 工作

Ina avatarIna · 2012-12-25

Table of Contents

大師好:excel2010最大欄位為1048576,以下巨集會超過,小弟想修改能夠自動換行,原始位置在A1希望能夠往右移50,第1次從AY1開始,第2次從CW1開始,以此類推原始巨集如下:Sub複製到結果()Fori=1To40Sheets("複製").SelectActiveCell.Range("A1:T53504").SelectSelection.CopySheets("結果").SelectSelection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_:=False,Transpose:=FalseActiveCell.Offset(53504,0).Range("A1").SelectSheets("DATA1").SelectActiveCell.Rows("1:1").EntireRow.SelectApplication.Cu
工作

All Comments

Edith avatarEdith2012-12-25
～～DATA1和2可能都有1000筆,是在做1000*1000的比對工作要如何比對而要跑1000*1000？一般應只跑1000+1000迴圈即可的！若能上傳樣本檔才好參考！2012-12-2614:55:37補充：＜範例檔＞：http://www.funp.net/632812大約整合，看是否適合！2012-12-2718:52:06補充：＜範例檔N1版＞：http://www.funp.net/9652401．由上而下貼入，每一結果空一列，若不想空一列，可在程式碼更改。2．下方列不足，往右空一欄繼續貼入，欄數以DATA2的欄數為準。3．範例DATA1為480列，DATA2為500列，　　共產生4
Una avatarUna2012-12-26
果然是大師,好厲害,感覺很快,不過小弟實在是看不懂好多問題,請教一下,data1和2以及結果的範圍是13*1805嗎?是固定值嗎?如果是的話如何做修改?還有中間跑出的數字是什麼呀?麻煩指導一下小弟,非常感激.2012-12-2702:02:32補充：剛發現一件事,結果的範圍好像都不一樣,那能不能夠在同一排,爾後才好再做篩選的動作,謝謝2012-12-2702:53:15補充：好像範圍是會自動調整的,跑出來的是時間,不知道是不這樣?做一次填滿儲存格的動作是做多大範圍呀?能不能在同一排?不好
Skylar DavisLinda avatarSkylar DavisLinda2012-12-26
版大抱歉，因為我的發問的問題，不知為何原因，都無法顯示出來讓各位高手看到，在此借助您的版面詢問，如有不妥，敬請見諒請各位大師幫我看看，謝謝http://tw.knowledge.yahoo.com/question/question?qi...
Edward Lewis avatarEdward Lewis2012-12-26
試試看是不是這樣:Sub複製到結果()SetST1=Sheets("複製").[A1]SetST2=Sheets("結果").[A1]Fori=1To40ST2(53504*(i-1)+1,1).Resize(53504,20)=ST1(1,50*i-49).Resize(53504,20).ValueNextiEndSub因為版大沒提到data1的delete，因此先沒寫在程式裡...Showmore