3个回答
展开全部
假如你的数据都在A列
ALT+F11调出 VBA编辑器,选择这个表,插入--模块
然后双击 插入后的模块1,复制以下代码进去~~
Function PZ(arr As Range)
Application.Volatile True
TEX = arr.Comment.Text
I = InStr(1, TEX, Chr(10))
TEX = VBA.Mid$(TEX, I + 1, VBA.Len(TEX) - 1)
PZ = TEX
End Function
关闭VBE窗口。
B1输入
=PZ(A1)
即可~~
公式下拉~~OK~~~
ALT+F11调出 VBA编辑器,选择这个表,插入--模块
然后双击 插入后的模块1,复制以下代码进去~~
Function PZ(arr As Range)
Application.Volatile True
TEX = arr.Comment.Text
I = InStr(1, TEX, Chr(10))
TEX = VBA.Mid$(TEX, I + 1, VBA.Len(TEX) - 1)
PZ = TEX
End Function
关闭VBE窗口。
B1输入
=PZ(A1)
即可~~
公式下拉~~OK~~~
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |