[求助] excel备注如何导出成文本

多余de回忆

好好吃面！

贡献会员

Rank: 7 Rank: 7 Rank: 7

LEVEL ∞(等待自杀)

积分: 169344
金币: 8192700 枚
威望: 1078 点
金镑: 0 个
银币: 0 枚
舍利: 0 枚
注册时间: 2009-2-26
最后登录: 2012-6-17

论坛银级认同勋章论坛贡献勋章

1楼大中小发表于 2009-7-8 10:58 只看该作者

excel备注如何导出成文本

各位达人：
小弟最近接到领导分配的任务，将EXCEL中的备注按照不同的单元格粘贴到另一个文档中
详细说明：文件1，包含1000多个备注，每个备注中综合了产地，规格型号等多个信息，现在建立了文件2，是按照产地规格型号等单独的单元格，现在需要将文件1的备注分别粘贴到文件2，请问各位，如何操作才最简便，谢谢

在线等

[ 本帖最后由多余de回忆于 2009-7-8 11:30 编辑 ]

TOP

作者的其他主题:
这才是真正的孝子啊求宝宝三字的儿歌打包求：宝宝儿歌打包征集日韩灾难片！愿地球更加坚强！！！今天得奖了！！让神人飞一会

sasahaha

LEVEL 5

Rank: 4

积分: 37
金币: 1101 枚
威望: 0 点
金镑: 0 个
银币: 0 枚
舍利: 0 枚
注册时间: 2009-5-21
最后登录: 2014-5-18

2楼大中小发表于 2009-7-8 11:46 只看该作者

自定义函数
Function Get_comment(rng As Range)
Get_comment = Mid(rng.Comment.Text, InStr(1, rng.Comment.Text, ":") + 1, 100)
End Function

再发个附件参考一下。
http://www.namipan.com/d/1.rar/0 ... cd0f6a567a0531e0000

TOP

蚊子咬咪咪

Ban to Visit

LEVEL 7

Rank: 6 Rank: 6

IP Banned

积分: 196
金币: 8293 枚
威望: 0 点
金镑: 0 个
银币: 0 枚
舍利: 0 枚
注册时间: 2009-7-8
最后登录: 2025-3-20

3楼大中小发表于 2009-7-15 17:08 只看该作者

办公软件这方面一点头绪都没有。只有祝愿楼主能早日完成领导颁下的任务

TOP

pc12 该用户已被删除	4楼大中小发表于 2009-7-15 18:56 只看该作者 0 看过类似的的数据处理，不过具体的过程忘了，很同情阁下
	TOP

xblwin2 该用户已被删除	5楼大中小发表于 2009-7-15 20:50 只看该作者 0 还有一个简单的办法，全选，复制，拷贝到记事本里，在拷贝到word，就可以。不过要整理一下
	TOP

‹‹ 上一主题 | 下一主题 ››