公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
513 浏览
Table[{i, i^2, i^3}, {i, 0, 10}] // TableForm

这样生成的数据我想把他复制到Excel中成为三列数据,但实际效果却是一列

分类:导入导出 | 用户: mma-2-2-2 (1.3k 分)
修改于 用户:mma-2-2-2

2 个回答

+4 投票
 
已采纳

如果数据量小,可以使用下面的方法:

da = RandomInteger[100, {5, 3}]
CopyToClipboard[StringRiffle[da, "\n", "\t"]](*将数据复制到剪切板*)

如果数据量较大(2007版以上上限1048567行16384列),可以使用Export:

da = RandomInteger[100, {5, 3}];
Export["D:/da.xlsx", {da}];(*更多在帮助查 xlsx *)

如果数据量非常大(硬盘能放得下就行),可以使用数据流方式导出:

da = RandomInteger[100, {5, 3}];
sw = OpenWrite["D:/da.txt", CharacterEncoding -> "UTF-8"];
Do[WriteLine[sw, StringRiffle[da[[k]]]];, {k, 
Length[da]}];(*更多,在帮助里查:guide/LowLevelFileOperations*)
Close[sw];

 

用户: 野鹤 (5.0k 分)
采纳于 用户:mma-2-2-2
+1 投票
data = Table[{i, i^2, i^3}, {i, 0, 10}] // TableForm
Export["1.xls", data]

使用Export导出即可

用户: WMN7 (606 分)
再加一层花括号比较好:Export["1.xls", {data}]
...