取出字符串中的中文、英文字母、数字自定义函数

shmily6521 · 发表于 2006-3-16 15:41

非常感谢版主的分享！

GUCHENGRONG · 发表于 2006-3-16 21:29

定上去,大家都该学习学习!!!

sbz · 发表于 2006-3-16 22:46

收下学习,谢版主分享.

zhangjun79 · 发表于 2006-3-16 22:59

qiang!

xylf · 发表于 2006-3-17 07:55

严重支持版主.

lingdo2001 · 发表于 2006-3-17 10:57

这个。。。

好牛

佩服ING[em17]

Vorbits · 发表于 2006-3-24 22:36

不太满意,比如A1=LSGT凯越A145好

要有这么一个函数就OK了,函数(A1,4,6,9,11)=T越4好,急盼!

gvntw · 发表于 2006-3-24 23:09

以下是引用[I]Vorbits[/I]在2006-3-24 22:36:29的发言：[BR]
不太满意,比如A1=LSGT凯越A145好
要有这么一个函数就OK了,函数(A1,4,6,9,11)=T越4好,急盼!

你的问题也许更简单，只是没看明白你的意思。 "LSGT凯越A145好">>>"T越4好" 没看出是根据什么取出来的，难道是随意取4个字？

gvntw · 发表于 2006-3-24 23:16

晕，总算猜出38楼的意思了：

Function MyGet(txt As Variant)
Dim t
For Each t In txt
MyGet = MyGet & t
Next
End Function

=MyGet(MID(A1,{4,6,9,11},1))

guangyp · 发表于 2006-3-24 23:27

版主还真能猜，佩服！

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

[分享] 取出字符串中的中文、英文字母、数字自定义函数