VBA基础每日一练：提取字母（07-3-22)已总结

戏子 · 发表于 2007-3-23 00:30

以上所有代码只能提取单元格唯一字母应流星超版要求改进一下代码:提取单元格中所含字母Sub 查找字母3() Dim i As Integer, rag As String, k As String, l As String '//定义i为整数,定义rag,k,l为字符串 '// 清空D列第二行至最后一行的数据 Range("D2:D" & Range("D65536").End(xlUp).Row + 1).ClearContents '//定义变量i从第一行到A列不为空的单元格的行进行循环 For i = 1 To Range("A65536").End(xlUp).Row     rag = Cells(i, 1) '//定义rag为循环所在的行的单元格值     For j = 1 To Len(rag) '//定义j在单元格中所有字符串中循环         k = Mid(rag, j, 1) '//定义k为单元格中单个字符         If k Like "[a-z,A-Z]" Then '//比较k是否为字母            l = l & k '//定义l为所有字符串的值         End If     Next j     '//把查询的字符串按顺序写入D列,并清空l值     Cells(Range("D65536").End(xlUp).Row + 1, 4) = l     l = "" Next i End Sub如:A1中有ABC,则在D2中显示ABCA1为123AB则在D2中显示AB

戏子 · 发表于 2007-3-23 00:34

大家还有什么好的方法可以拿出来分享一下啊,金币奖励哦[em07]

戏子 · 发表于 2007-3-23 00:43

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用苦菜花在2007-3-22 23:01:54的发言： 刚才又想起了一个：集合Collection方法这下兰版可要破费了哈 [em04]</div>刚才没有看到这个,强啊呵呵~又学了一招啊[em17]

[此贴子已经被作者于2007-3-23 0:44:57编辑过]

苦菜花 · 发表于 2007-3-23 01:08

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用戏子在2007-3-23 0:43:38的发言： <div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用苦菜花在2007-3-22 23:01:54的发言： 刚才又想起了一个：集合Collection方法这下兰版可要破费了哈 [em04]</div>刚才没有看到这个,强啊呵呵~又学了一招啊[em17] </div>[em12]吾脸没处搁呀，为了生计而奔波，也是被逼的哦

戏子 · 发表于 2007-3-23 01:37

呵呵~菜花歉虚啦

zjxia889 · 发表于 2007-3-30 09:45

入不入门

逍遥007 · 发表于 2007-3-31 23:28

谢谢

uranus1997 · 发表于 2007-4-1 18:02

版主们把方法都几乎列出来了（菜鸟们想捞个金币更难了......），努力学习！努力学习......

liujuan79 · 发表于 2007-4-5 18:08

今天又学了一招呢，多谢！

gotopx · 发表于 2007-4-15 13:18

小鸟开了眼界

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

[习题] VBA基础每日一练：提取字母（07-3-22)已总结

浏览过的版块