小问题大思路：谈字符串的补位处理

兰色幻想 · 发表于 2008-7-8 14:04

今天的出了一个小题,本以为挺简单,但看了许多上交的答案却不太满意.  题目:A列是小于等于6位的字母组合，要求不足A列不足六位的用*号补齐       <a id="ImgSpan" href="http://www.excelpx.com/UploadFile/2008-7/2008788261616986.jpg" target="_blank"><img height="200" alt="按此在新窗口浏览图片" src="http://www.excelpx.com/UploadFile/2008-7/2008788261616986.jpg" width="241" border="0"/></a>  分析: 其实这个题目虽小,但考查的知识点却不少:             1、string函数的使用             2、字符串截取方法             3、数组的赋值　　　 4、其他加速技巧下接二楼

[此贴子已经被作者于2008-7-8 14:59:50编辑过]

兰色幻想 · 发表于 2008-7-8 14:04

第一, 先清除,再填充      如果我们需要多次把处理后的数据填充到某列，有时我们发现第一次填充时速度很快，后来运行同样的代码速度却变慢了。这是因为如果原来的数据没有删除而用覆盖的方法，会大大降低填充的速度．　　由上，我们在填充之前一定要把原来的数据先删除之：　　　如：Range("A1:A10000")=""

[此贴子已经被作者于2008-7-8 14:12:45编辑过]

兰色幻想 · 发表于 2008-7-8 14:04

第二, 关闭屏幕刷新      这是一个老生常谈的问题，大家也掌握的很不错了，这里再罗嗦一下，算是给新手提个醒．　　如果程序中涉及大量的工作表、单元格等excel对象的操作时，屏幕会一直闪动，这些闪动会降低程序运行的效率。所以关闭屏幕刷新是很好的解决方法：　　　在程序开始处添加关闭刷新语句：Application.ScreenUpdating = False                                                                  代码          在程序结尾处添加恢复屏幕刷新语句：Application.ScreenUpdating = True

[此贴子已经被作者于2008-7-8 14:19:41编辑过]

兰色幻想 · 发表于 2008-7-8 14:04

第三, 怎么能更简单的表示变动的单元格区域      表示变动区域的代码几乎无处不在, 多数用户却绕了个弯来表示.     如表示A列的数据区域,大家都是这样多设置了一个变量,这样写:                                        x=Range("a65536").End(xlup).row                                        arr=Range("A1:A"& x)　　　Range最基本的写法是:  Range(左上角单元格, 右下角单元格)            所以在表示A列的变动区域时只需要这样写：Range("a1", [a65536].End(xlUp))

[此贴子已经被作者于2008-7-8 14:30:27编辑过]

兰色幻想 · 发表于 2008-7-8 14:05

第四, VBA函数和工作表函数      解答本题可以使用两个函数组合 ,一个是string函数 ,另一个是right函数　　　VBA中的string函数等同于工作表中的rept函数,它是取重复的字符. 用法是                           string(个数, 需要重复的字符)           本题中我们就可以借助string函数来补齐文本,即                   String(6 - Len(arr(x, 1)), "*") & arr(x, 1)          有的会员调用了工作表函数rept :  application.rept(.....) ，但通过大量数据的运行验证，使用VBA内置函数要比调用工作表函数快的多，也就说以后我们在处理数据时，有VBA内置函数的就不要调用工作表函数。          这个题目还有第二个解题思路，即用先多补位后截取的方法来完成，这里的right函数也是VBA内置函数之一。                 即：Right("******" & arr(x, 1), 6)           使用截取方法我们就可以省去一个函数，在速度上比使用string+len组合更快，和工作表中设置公式一样，VBA编程也是思路为王。好的思路需要不断的积累和学习，希望大家在做题过程中多总结些高效的思路。不过这里兰色也提醒一下想提高的VBA学员：万丈高楼平地起，基础未牢切莫贪高.。

[此贴子已经被作者于2008-7-8 14:46:54编辑过]

兰色幻想 · 发表于 2008-7-8 14:06

第五, 数组的灵活运用      今天还看到yy共享的一个贴子，令他高兴的是原来需要长时间运行才能得到结果的代码，使用数组在瞬间完成了．呵呵，这就是强大的ＶＢＡ数组．它可以让你走上数据处理高速路．可以这样说，如果一个用户不懂ＶＢＡ数组，那他至多也只能算一个ＶＢＡ的入门汉．　　闲话少说，谈一下本题的数组使用，本题中如果要让程序高速运行，数组也是必不可少的．　　首先我们需要把Ａ列的数据存放在数组arr里　　arr = Range("a1", [a65536].End(xlUp))　接下来就有很多会员再声明一个数组，存放处理后的数据，其实这里我们只需要对arr数组进行重新替换就可以　　　　即：For x = 1 To UBound(arr)   　　　　　　arr(x, 1) = Right("*****" & arr(x, 1), 6) 　　　　　Next x　处理后的数组就可以填充到单元格区域中：　　　　　[c1].Resize(x - 1) = arr

[此贴子已经被作者于2008-7-8 14:55:38编辑过]

兰色幻想 · 发表于 2008-7-8 14:59

代码１：使用right截取法　　Sub ss() 　　　　Range("c1", [c65536].End(xlUp)) = "" 　　　　Application.ScreenUpdating = False 　　　　Dim arr, x As Long 　　　　arr = Range("a1", [a65536].End(xlUp)) 　　　　For x = 1 To UBound(arr)   　　　　　arr(x, 1) = Right("*****" & arr(x, 1), 6) 　　　　Next x 　　　　[c1].Resize(x - 1) = arr 　　　　Application.ScreenUpdating = True 　　End Sub第二种：使用string函数补齐． 　　Sub tt() 　　　　Range("d1", [c65536].End(xlUp)) = "" 　　　　Application.ScreenUpdating = False 　　　　Dim arr, x As Long 　　　　arr = Range("a1", [a65536].End(xlUp)) 　　　　For x = 1 To UBound(arr)   　　　　　arr(x, 1) = String(6 - Len(arr(x, 1)), "*") & arr(x, 1) 　　　　Next x 　　　　[d1].Resize(x - 1) = arr 　　　　Application.ScreenUpdating = True 　　　End Sub

兰色幻想 · 发表于 2008-7-8 15:01

弄了一个小时,终于完工了,希望对大家会有所帮助[em04]

laosanjie · 发表于 2008-7-8 15:06

学习了！谢谢兰版的指导！[em23][em23][em23]

一剑惊心 · 发表于 2008-7-8 15:07

学习了

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