看板Programming
标 题Re: [问题] 请问 excel 的问题
发信站HISDT 风禹科技验证有限公司 (Thu Sep 17 10:06:17 2009)
转信站ptt!news.ntu!ctu-gate!news.nctu!newsfeed.berkeley.edu!ucberkeley!newsg
写巨集？
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
==> 本文由 "陈小黑 <[email protected]>"
> 於 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