如何提取批注中特定的内容到指定的单元格！~

/vGemini · 发表于 2012-3-5 14:35

本帖最后由 /vGemini 于 2012-3-5 16:54 编辑

如题，如何提取批注中特定的内容到指定的单元格！~ 请教各位大侠~！给个解决的方案~！

大家请看附件~！

大侠们，都很强，现在距离最后的结果，越来越近了！~
在这个表格里面，最难的应该是如何自动判断电子邮件地址，然后提取放在指定的单元格！~

批注的内容：

UX001125B
日期：2010-06-28
北京
李四
052-45487656
1234567989
1525.45sdffwerqw8.uas@QQ.com
发送方式：德邦物流
备注：BBB公司

我们要提取的是第二行的日期，第三行的地址，第四行的姓名，还有就是下面的邮箱地址；
邮箱地址的位置不是固定不变的，因为姓名和邮箱地址之间还有两个项目（固话，手机），这两个项目不一定每个批注都有或者只有其中一项。
如果电子邮件不好提取，那就把批注里面每一个换行内容分别提取到后面的单元格里面。这样可能会简单点！~

LangQueS · 发表于 2012-3-5 14:55

Sub 批注内容()
For i = 1 To ActiveSheet.Comments.Count
a = ActiveSheet.Comments(i).Text '批注内容
b = InStr(1, a, "：") '字符位置
ActiveSheet.Comments(i).Parent.Next.Value = Mid(a, b + 1, 10)
Next
End Sub

复制代码

/vGemini · 发表于 2012-3-5 15:03

大侠，能帮我直接把代码加进去吗？

LangQueS · 发表于 2012-3-5 15:11

求助2012.rar (11.86 KB, 下载次数: 104)

fkeih_007 · 发表于 2012-3-5 15:51

本帖最后由 fkeih_007 于 2012-3-5 15:51 编辑

自定义函数，MAC（XX，X）
XX=要提取的单元格
X=批注中的第几行字。
如=mac($B2,3)，提取B2单元格批注中第三行的字符。

Function Mac(XX As Range, X)
AA = Split(XX.Comment.Text, Chr(10))
Mac = AA(X - 1)
End Function

复制代码

/vGemini · 发表于 2012-3-5 17:03

各位大侠们，帮帮我吧~！

LangQueS · 发表于 2012-3-5 22:20

/vGemini 发表于 2012-3-5 17:03
各位大侠们，帮帮我吧~！

以上的多个解答都不行么？

/vGemini · 发表于 2012-3-6 12:03

LangQueS 发表于 2012-3-5 22:20
以上的多个解答都不行么？

还是差一点，邮箱地址没有提取出来？

/vGemini · 发表于 2012-3-6 12:04

LangQueS 发表于 2012-3-5 22:20
以上的多个解答都不行么？

能帮我把批注里面每一个换行内容分别提取到后面的单元格里面。这样的代码帮我写一个可以吗？

LangQueS · 发表于 2012-3-6 13:16

/vGemini 发表于 2012-3-6 12:04
能帮我把批注里面每一个换行内容分别提取到后面的单元格里面。这样的代码帮我写一个可以吗？

问题改变了？

5楼fkeih_007的代码正是你需要的。

		自动登录	找回密码
密码			免费注册

[已解决] 如何提取批注中特定的内容到指定的单元格！~