Re: [問題] 請問 excel 的問題
寫巨集？
Sub Test1()
Set Source = Sheets("Sheet1")
Set Target = Sheets("Sheet2")
nbr = 0
For ibr = 1 To 2
For ibc = 1 To 6
nbr = nbr + 1
Target.Cells(nbr, 1) = Source.Cells(ibr, ibc)
Next
Next
End Sub
==> 本文由 "陳小黑 <swiminwine.bbs@ptt.cc>"
> 於 news:4i2gZE%2485l%40ptt.cc 發表
>
> 現在我有一筆資料如下 ( n*6 )
> 1 2 3 4 5 6
> 7 8 9 10 11 12
> ...
>
> 我想要改寫成一行如下
> 1
> 2
> 3
> 4
> 5
> 6
> 7
> 8
> 9
> ...
>
> 有什麼好方法嗎 n 是很大的數字
>
--
風禹科技驗證有限公司 ASP.NET Web News Reader 0.2.9 UTF-8 Beta
網站地圖 http://tlcheng.twbbs.org/wwwmap.htm
流域防洪/區域水資源/徐昇網/玫瑰圖/語音通訊 文章與程式
Basic/Fortran/Windows API/.Net/輔助說明檔 原始碼、文章與討論
微軟程式設計、系統管理使用新技術論壇討論區，網友回覆後即時簡訊、電子郵件通知：
MSDN: http://social.msdn.microsoft.com/Forums/zh-TW/categories/
TechNet: http://social.technet.microsoft.com/Forums/zh-TW/categories/
--
ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx
RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language
※ goss:轉錄至看板 ask 09/20 22:02
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：