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

qdzbk · 发表于 2012-3-6 22:40

fkeih_007 发表于 2012-3-6 22:32
第二个问题
如果你所有的邮件地址都是在倒数第三行，可以用以下自定义函数取得。
Function EM(XX As Ra ...

如能根据“@“字符在批注中第几行来提取邮箱就方便了。

guzhen9315 · 发表于 2012-3-6 23:01

查找批注特定字符的自定义函数：
SM（单元格，特定字符）

F2单元格输入
=SM(B2,"@")

Function SM(XX As Range, YY As String)
AA = Split(XX.Comment.Text, Chr(10))
For i = 1 To UBound(AA)
      If InStr(AA(i), YY) Then
         SM = AA(i)
      End If
Next i
End Function

/vGemini · 发表于 2012-3-7 09:34

qdzbk 发表于 2012-3-6 22:13
楼主要的是邮箱号。
如能知道“@“字符在批注中第几行，再用5楼的函数问题就解决了。

问题难就在不知道邮箱地址是再第几行！~ 头痛

/vGemini · 发表于 2012-3-7 09:36

fkeih_007 发表于 2012-3-6 22:32
第二个问题
如果你所有的邮件地址都是在倒数第三行，可以用以下自定义函数取得。
Function EM(XX As Ra ...

邮箱地址的位置根据批注里面的内容，经常会变化，所以不论是正数还是倒数，都不能确定！~ 头好疼~！

fkeih_007 · 发表于 2012-3-7 09:55

/vGemini 发表于 2012-3-7 09:36
邮箱地址的位置根据批注里面的内容，经常会变化，所以不论是正数还是倒数，都不能确定！~ 头好疼~！

如果也不能确定邮箱地址在第几行，可以把自定义函数改成以下。
Function EM(XX As Range)
AA = Split(XX.Comment.Text, Chr(10))
For i = 1 To UBound(AA)
If InStr(AA(i), "@") Then EM = AA(i)
Next
End Function

/vGemini · 发表于 2012-3-7 09:56

guzhen9315 发表于 2012-3-6 23:01
查找批注特定字符的自定义函数：
SM（单元格，特定字符）

感谢……第二个问题的答案，你的解药很好用~！

/vGemini · 发表于 2012-3-7 10:15

fkeih_007 发表于 2012-3-7 09:55
如果也不能确定邮箱地址在第几行，可以把自定义函数改成以下。
Function EM(XX As Range)
AA = Split(X ...

感谢……第二个问题的答案，你的解药和 22楼的答案都是很好的办法~！谢谢大家~！热心的帮助~！

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

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