ExcelVBA常用技巧第09章1函数的使用备课讲稿

1、Good is good, but better carries it.精益求精，善益求善。ExcelVBA常用技巧第09章1函数的使用VBA常用技巧目录TOCo1-4hzuHYPERLINKl_Toc266459881VBA常用技巧PAGEREF_Toc266459881h1HYPERLINKl_Toc266459882第9章函数的使用PAGEREF_Toc266459882h2HYPERLINKl_Toc266459883技巧1调用工作表函数求和PAGEREF_Toc266459883h2HYPERLINKl_Toc266459884技巧2查找最大、最小值PAGEREF_Toc266459

2、884h2HYPERLINKl_Toc266459885技巧3不重复值的录入PAGEREF_Toc266459885h4HYPERLINKl_Toc266459886技巧4获得当月的最后一天PAGEREF_Toc266459886h6HYPERLINKl_Toc266459887技巧5四舍五入运算PAGEREF_Toc266459887h7HYPERLINKl_Toc2664598885-1极小值修正法PAGEREF_Toc266459888h7HYPERLINKl_Toc2664598895-2调用工作表函数法PAGEREF_Toc266459889h8HYPERLINKl_Toc26645

3、9890技巧6使用字符串函数PAGEREF_Toc266459890h8HYPERLINKl_Toc266459891技巧7使用日期函数PAGEREF_Toc266459891h10HYPERLINKl_Toc266459892技巧8判断是否为数值PAGEREF_Toc266459892h14HYPERLINKl_Toc266459893技巧9格式化数值、日期和时间PAGEREF_Toc266459893h15HYPERLINKl_Toc266459894技巧10个人所得税自定义函数PAGEREF_Toc266459894h17HYPERLINKl_Toc266459895技巧11人民币大写函

4、数PAGEREF_Toc266459895h19HYPERLINKl_Toc266459896技巧12列号转换为列标PAGEREF_Toc266459896h21HYPERLINKl_Toc266459897技巧13判断工作表是否为空表PAGEREF_Toc266459897h22HYPERLINKl_Toc266459898技巧14查找指定工作表PAGEREF_Toc266459898h23HYPERLINKl_Toc266459899技巧15查找指定工作簿是否打开PAGEREF_Toc266459899h25HYPERLINKl_Toc266459900技巧16取得应用程序的安装路径PAG

5、EREF_Toc266459900h25HYPERLINKl_Toc266459901技巧17数组的使用PAGEREF_Toc266459901h27HYPERLINKl_Toc26645990217-1代码运行时创建数组PAGEREF_Toc266459902h27HYPERLINKl_Toc26645990317-2文本转换为数组PAGEREF_Toc266459903h28HYPERLINKl_Toc26645990417-3使用动态数组去除重复值PAGEREF_Toc266459904h30函数的使用调用工作表函数求和在对工作表的单元格区域进行求和计算时，使用工作表Sum函数比使用VB

6、A代码遍历单元格进行累加求和效率要高得多，代码如下所示。#001SubrngSum()#002DimrngAsRange#003DimdAsDouble#004Setrng=Range(A1:F7)#005d=Application.WorksheetFunction.Sum(rng)#006MsgBoxrng.Address(0,0)&单元格的和为&d#007EndSub代码解析：rngSum过程调用工作表Sum函数对工作表的单元格区域进行求和计算。在VBA中调用工作表函数需要在工作表函数前加上WorksheetFunction属性。应用于Application对象的WorksheetFun

7、ction属性返回WorksheetFunction对象，作为VBA中调用工作表函数的容器，在实际应用中可省略Application对象识别符。查找最大、最小值在VBA中没有内置的函数可以进行最大、最小值的查找，借助工作表Max、Min函数可以快速地在工作表区域中查找最大、最小值，如下面的代码所示。#001Subseeks()#002DimrngAsRange#003DimmyRngAsRange#004Dimk1AsInteger,k2AsInteger#005DimmaxAsDouble,minAsDouble#006SetmyRng=Sheet1.Range(A1:F30)#007For

8、EachrngInmyRng#008Ifrng.Value=WorksheetFunction.max(myRng)Then#009rng.Interior.ColorIndex=3#010k1=k1+1#011max=rng.Value#012ElseIfrng.Value=WorksheetFunction.min(myRng)Then#013rng.Interior.ColorIndex=5#014k2=k2+1#015min=rng.Value#016Else#017rng.Interior.ColorIndex=0#018EndIf#019Next#020MsgBox最大值是:&ma

9、x&共有&k1&个_#021&Chr(13)&最小值是:&min&共有&k2&个#022EndSub代码解析：seeks过程在工作表单元格区域中查找最大、最小值，并将其所在的单元格底色分别设置为红色和蓝色。第2行到第5行代码声明变量类型。第6行代码使用关键字Set将单元格引用赋给变量myRng。第7行到第19行代码遍历单元格区域，使用工作表Max、Min函数判断单元格数值是否是所在区域的最大、最小值，如果是，将其所在的单元格底色设置为红色或蓝色，并保存其数值和数量。第20、21行代码使用消息框显示最大、最小值数值和数量。运行seeks过程后将工作表区域最大、最小值所在的单元格的底色设置为红色或

10、蓝色并用消息框显示其数值和数量，如REF_Ref230603713h图1541所示。图STYLEREF3s154SEQ图*ARABICs31查找最大、最小值不重复值的录入在工作表中录入数据时，有时希望能限制重复值的录入，比如在示例的A列单元格只能录入唯一的人员编号，此时可以利用工作表的Change事件结合工作表的CountIf函数来判断所录入的人员编号是否重复，示例代码如下。#001PrivateSubWorksheet_Change(ByValTargetAsRange)#002WithTarget#003If.Column1Or.Count1ThenExitSub#004IfApplica

11、tion.CountIf(Range(A:A),.Value)1Then#005.Select#006MsgBox不能输入重复的人员编号!,64#007Application.EnableEvents=False#008.Value=#009Application.EnableEvents=True#010EndIf#011EndWith#012EndSub代码解析：工作表的Change事件过程，使A列单元格只能录入唯一的人员编号。第4行代码使用工作表的CountIf函数来判断在A列单元格输入的人员编号是否重复。工作表的CountIf函数计算区域中满足给定条件的单元格的个数，语法如下：COUN

12、TIF(range,criteria)参数range为需要计算其中满足条件的单元格数目的单元格区域。参数criteria为确定哪些单元格将被计算在内的条件，其形式可以为数字、表达式、单元格引用或文本。在示例中以所录入的人员编号与A列单元格区域进行比较，如果CountIf函数的返回值大于1，说明录入的是重复编号。第5行代码，重新选择该单元格便于下一步清空后重新录入。第7、8、9行代码，清除录入的重复编号，在清除前将Application对象的EnableEvents属性设置为False，禁用事件。因为如果不禁用事件，那么在清除重复值的过程中会不断地触发工作表的Change事件，从而造成代码运行的

13、死循环。经过以上的设置，在工作表的A列中只能录入唯一的人员编号，如果录入重复值会进行提示，如REF_Ref230658280h图1551所示，点击确定后自动清除录入的重复编号。图STYLEREF3s155SEQ图*ARABICs31限制重复值的录入获得当月的最后一天在实际工作中经常需要根据给定的日期计算其所属月份的最后一天，此时可以使用DateSerial函数完成计算，如下面的代码所示。#001SubSerial()#002DimDateStrAsByte#003DateStr=Day(DateSerial(Year(Date),Month(Date)+1,0)#004MsgBox本月的最后一

14、天是&Month(Date)&月&DateStr&号#005EndSub代码解析：Serial过程配合使用了4个VBA内置函数Year、Month、Day和DateSerial完成计算并使用消息框显示当月最后一天的日期。Year、Month和Day函数分别返回代表指定日期的年、月、日的整数，语法如下：Year(Date)Month(Date)Day(Date)其中参数Date可以是任何能够表示日期的Variant、数值表达式、字符串表达式或它们的组合。DateSerial函数返回包含指定的年、月、日的Variant(Date)，语法如下：DateSerial(year,month,day)其中

15、参数year、month、day分别表示指定的年、月、日。为了指定某个日期，DateSerial函数中的每个参数的取值范围应该是可接受的，即日的取值范围应在1-31之间，而月的取值范围应在1-12之间。但是，当一个数值表达式表示某日之前或其后的年、月、日数时，也可以为每个使用这个数值表达式的参数指定相对日期。当任何一个参数的取值超出可接受的范围时，它会自动地在可接受的时间单位进行调整，例如本例中的day参数设置为0，则被解释成month参数指定月的前一天，即表达式Month(Date)+1指定的下一个月的前一天，也就是本月的最后一天。运行Serial过程结果如REF_Ref230659564h

16、图1561所示。图STYLEREF3s156SEQ图*ARABICs31获得当月的最后一天四舍五入运算在实际工作中经常需要对数值或计算结果进行四舍五入运算，此时可以使用VBA内置的Round函数。Round函数返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果，语法如下：Round(expression,numdecimalplaces)参数expression是必需的，要进行四舍五入运算的数值表达式。参数numdecimalplaces是可选的，数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。但是VBA内置的Round函数在对数值进行四

17、舍五入运算时实行的是Bankre舍入，而不是算术舍入。按Bankre舍入规则，如果保留位数的下一个数字正好是5则其后没有其他有效数字，则按保留位最后一位“偶舍奇入”的方法进行处理。比如Round(1.5)的保留位最后为1，是奇数，小数位的5入上去，因此Round(1.5)的运算结果是2；而Round(4.5)的保留位最后为4，是偶数，小数位的5舍去，因此Round(4.5)的运算结果是4而不是5。Bankre舍入规则虽然有其合理性，但不符合实际工作的需要。在实际应用中使用以下两种方法避免Bankre舍入：极小值修正法在使用Round函数时对需要舍入的数值先加上极小值再调用VBA内置的Round

18、函数，如下面的代码所示。#001SubaTestRound()#002MsgBoxRound(4.5)=&Round(4.5)&Chr(13)&Round(4.5)=&Round(4.5+0.0000001)#003EndSub代码解析：aTestRound过程分别调用VBA内置的Round函数和加上极小值再调用VBA内置的Round函数在洗染店框中显示两者运算结果，如REF_Ref230660537h图1571所示。图STYLEREF3s157SEQ图*ARABICs31加上极小值进行运算结果从运算结果中可以发现，加上极小值后Round(4.5)已正确运算为5而不是4。调用工作表函数法还可以

19、使用工作表函数Round代替VBA内置的Round函数。工作表函数Round和VBA内置的Round函数的用法相同，但它采用算术舍入而不是Bankre舍入，所以不会有“偶舍奇入”的问题，如下面的代码所示。#001SubbTestRound()#002MsgBoxRound(4.5)=&Round(4.5)&Chr(13)&Round(4.5)=&Application.Round(4.5,0)#003EndSub代码解析：bTestRound过程分别调用VBA内置的Round函数和工作表Round函数在消息框中显示两者运算结果，如REF_Ref230660671h图1572所示。图STYLER

20、EF3s157SEQ图*ARABICs32工作表函数运算结果从运算结果中可以发现，使用工作表Round函数后Round(4.5)已正确运算为5而不是4。使用字符串函数使用VBA的字符串函数可以对字符串进行各种操作，如下面的代码所示。#001SubStrFunctions()#002DimStrAsString#003Str=AbcDEFGhijkLmn#004MsgBox原始字符串为：&Str&Chr(13)_#005&字符串长度为：&Len(Str)&Chr(13)_#006&左边8个字符为：&Left(Str,8)&Chr(13)_#007&右边6个字符为：&Right(Str,6)&Ch

21、r(13)_#008&从左边第2个开始取5个字符为：&Mid(Str,2,5)&Chr(13)_#009&转换为大写：&UCase(Str)&Chr(13)_#010&转换为小写：&LCase(Str)&Chr(13)#011EndSub代码解析：StrFunctions过程使用字符串函数对字符串进行各种操作，如计算字符数、取得一定数量的字符、大小写转换等。第5行代码使用Len函数返回字符串内字符的数目，Len函数语法如下：Len(string|varname)参数string为任何有效的字符串表达式。参数varname为任何有效的变量名称。两个可能的参数必须有一个，而且只能有一个参数。第6行

22、代码使用Left函数从字符串左边起返回8个字符。第7行代码使用Right函数从字符串右边起返回6个字符Left函数语法如下：Left(string,length)Right函数语法如下：Right(string,length)参数string是必需的，字符串表达式。参数length是必需的，数值表达式，将返回的字符数量。如果为0，返回零长度字符串()；如果大于或等于参数string的字符数，则返回整个字符串。第8行代码使用Mid函数从字符串第2位起返回5个字符。Mid函数语法如下：Mid(string,start,length)参数string是必需的，字符串表达式。参数start是必需的，s

23、tring中被取出部分的字符位置。如果超过string的字符数，将返回零长度字符串()。参数length是可选的，要返回的字符数。如果省略或超过string的字符数，将返回字符串中所有字符。第9行代码使用UCase函数将字符串转换成大写的字符串。第10行代码使用LCase函数将字符串转换成小写的字符串。UCase函数的语法如下：UCase(string)LCase函数的语法如下：LCase(string)参数string是必需的，任何有效的字符串表达式。运行StrFunctions过程结果如REF_Ref230704968h图1581所示。图STYLEREF3s158SEQ图*ARABICs3

24、1使用字符串函数使用日期函数使用VBA的日期函数可以对日期进行各种计算，如下面的代码所示。#001SubDatFunctions()#002DimStrAsString#003DimWeekAsString#004Str=InputBox(请输入日期：)#005IfLen(Str)0Then#006IfIsDate(Str)Then#007SelectCaseWeekday(Str,vbMonday)#008Case1#009Week=一#010Case2#011Week=二#012Case3#013Week=三#014Case4#015Week=四#016Case5#017Week=五#01

25、8Case6#019Week=六#020Case7#021Week=日#022EndSelect#023MsgBox你输入的日期是&DateValue(Str)&Chr(13)_#024&是&Year(Str)&年的第&DatePart(q,Str)&季度&Chr(13)_#025&是星期&Week&Chr(13)_#026&距离今天有&Abs(DateDiff(d,Date,Str)&天&Chr(13)_#027&60天后的日期是&DateAdd(d,60,Str)#028Else#029MsgBox请输入正确格式的日期!#030EndIf#031EndIf#032EndSub代码解析：Da

26、tFunctions过程在对话框中输入日期后使用各种日期函数对其进行计算并用消息框显示。第4、5行代码使用InputBox函数显示一个对话框，供用户在对话框中输入一个日期。第6行代码使用IsDate函数判断输入的日期是否正确。IsDate函数返回Boolean值，指出一个表达式是否可以转换成日期，语法如下：IsDate(expression)参数expression是必需的，日期表达式或字符串表达式，如果表达式是一个日期，或者可以作为有效日期识别，则IsDate函数返回True，否则返回False。第7行到第22行代码使用Weekday函数判断所输入的日期是星期几。Weekday函数返回一个整

27、数，代表某个日期是星期几，语法如下：Weekday(date,firstdayofweek)参数date是必需的，能够表示日期的Variant、数值表达式、字符串表达式或它们的组合。参数firstdayofweek是可选的，指定一星期第一天的常数，如REF_Ref230747531h表格1591所示。常数值描述vbUseSystem0使用NLSAPI设置VbSunday1星期日（缺省值）vbMonday2星期一vbTuesday3星期二vbWednesday4星期三vbThursday5星期四vbFriday6星期五vbSaturday7星期六表格STYLEREF3s159SEQ表格*ARAB

28、ICs31firstdayofweek参数值Weekday函数返回一个1到7之间的整数，当firstdayofweek参数设置为vbMonday（2）时，返回1时说明是星期一，以此类推。第23行代码根据系统中指定的短日期格式来显示所输入的日期。DateValue函数的语法如下：DateValue(date)参数date是必需的，任何表达式，表示从100年1月1日到9999年12月31日之间的一个日期。如果是一个字符串，且其内容只有数字以及分隔数字的日期分隔符，则DateValue函数就会根据系统中指定的短日期格式来识别月、日、年的顺序。DateValue函数也识别明确的英文月份名称，全名或缩写

29、均可。例如，除了12/30/1991和12/30/91之外，DateValue函数也能识别December30,1991和Dec30,1991。如果date参数中略去了年这一部分，DateValue函数就会使用由计算机系统日期设置的当前年份。第24行代码判断输入的日期的季度。DatePart函数返回一个包含已知日期的指定时间部分的值，语法如下：DatePart(interval,date,firstdayofweek,firstweekofyear)其中参数interval是必需的，字符串表达式，是要返回的时间间隔，设定值如REF_Ref230748823h表格1592所示。设置说明yyyy年

30、q季m日y一年的日数d日w一周的日数ww周h时n分钟s秒表格STYLEREF3s159SEQ表格*ARABICs32interval参数设定值第26行代码计算所输入的日期距当天的天数。DateDiff函数返回两个指定日期间的时间间隔数目，语法如下：DateDiff(interval,date1,date2,firstdayofweek,firstweekofyear)其中参数interval是必需的，字符串表达式，表示用来计算date1和date2的时间差的时间间隔，设定值如REF_Ref230748823h表格1592所示。参数date1和date2是必需的，计算中要用到的两个日期。因为如果

31、输入的日期是当前日期以前的日期，DateDiff函数会返回负值，所以使用Abs函数返回绝对值将其转换为正值。第27行代码计算所输入的日期距当天的天数，DateAdd返回加上了一段时间间隔的一个日期，语法如下：DateAdd(interval,number,date)参数interval是必需的，字符串表达式，是所要加上去的时间间隔，设定值如REF_Ref230748823h表格1592所示。参数number是必需的，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。参数date是必需的，需要加上时间间隔的字符串表达式。运行DatFunctions过程

32、，在显示的对话框中输入一个日期，结果如REF_Ref230750505h图1591所示。图STYLEREF3s159SEQ图*ARABICs31使用日期函数判断是否为数值使用IsNumeric函数可以判断表达式的运算结果是否为数值，如下面的代码所示。#001SubNumeric()#002DimiAsInteger#003DimnAsString#004DimsAsString#005WithSheet1#006Fori=1To.Range(A65536).End(xlUp).Row#007IfIsNumeric(.Cells(i,1)Then#008n=n&.Cells(i,1).Addre

33、ss(0,0)&Chr(9)&.Cells(i,1)&Chr(13)#009Else#010s=s&.Cells(i,1).Address(0,0)&Chr(9)&.Cells(i,1)&Chr(13)#011EndIf#012Next#013EndWith#014MsgBoxA列中数值单元格：&Chr(13)&n&Chr(13)_#015&A列中非数值单元格：&Chr(13)&s#016EndSub代码解析：Numeric过程使用IsNumeric函数判断工作表的A列单元格是否为数值，并使用消息框显示。第7行代码判断工作表的A列单元格是否为数值。IsNumeric函数返回Boolean值，指

34、出表达式的运算结果是否为数，语法如下：IsNumeric(expression)参数expression是必需的，Variant类型，包含数值表达式或字符串表达式。如果参数expression的运算结果为数字，则IsNumeric返回True，否则返回False。第8行代码将数值单元格的地址和数值保存在变量e中。第10行代码将非数值单元格的地址和内容保存在变量s中。在保存时插入制表符对数据列进行分隔，使之排列整齐，请参阅技巧REF_Ref231009602rh73-5。运行Numeric过程结果如REF_Ref231009713h图1601所示。图STYLEREF3s160SEQ图*ARABI

35、Cs31判断是否为数值格式化数值、日期和时间Format函数是VBA中的常用函数，可以实现数值、日期和时间格式的转变，示例代码如下：#001SubFromatCurrent()#002MsgBoxFormat(123456.789,0.00)&Chr(13)_#003&Format(123456.789,0.00%)&Chr(13)_#004&Format(123456.789,#,#0.00)&Chr(13)_#005&Format(-123456.789,$#,#0.00;($#,#0.00)&Chr(13)_#006&Format(-123456.789,￥#,#0.00;(￥#,#0.

36、00)&Chr(13)_#007&Format(Date,yyyy-mm-dd)&Chr(13)_#008&Format(Date,yyyymmdd)&Chr(13)_#009&Format(Date,LongDate)&Chr(13)_#010&Format(Now,hh:mm:ss)&Chr(13)_#011&Format(Now,hh:mm:ssAMPM)#012EndSub代码解析：FromatCurrent过程使用消息框显示格式化后的数值、日期和时间。Format函数根据格式表达式中的指令来格式化的数值、日期和时间，语法如下：Format(expression,format,firs

37、tdayofweek,firstweekofyear)其中参数expression是必需的，任何有效的表达式。参数format是可选的，有效的命名表达式或用户自定义格式表达式。第2行代码将数值格式化为两位小数格式显示。第3行代码将数值格式化为两位小数的百分比格式显示。第4行代码将数值格式化为千位分隔符显示。第5行代码将数值格式化为以美元符号显示的两位小数，以千位分隔符分隔，如果是负值则以小括号显示。第6行代码将数值格式化为以人民币符号显示的两位小数，以千位分隔符分隔，如果是负值则以小括号显示。第7行代码将系统日期格式化为“yyyy-mm-dd”格式显示。第8行代码将系统日期格式化为“yyyym

38、mdd”格式显示。第9行代码将系统日期格式化为长日期格式显示。第10行代码将系统时间格式化为24小时、分钟和秒的格式显示。第11行代码将系统时间格式化为分12小时、分钟和秒的格式显示。运行FromatCurrent过程结果如REF_Ref231048403h图1611所示。图STYLEREF3s161SEQ图*ARABICs31格式化数值、日期和时间个人所得税自定义函数在财务工作中经常需要计算个人所得税，而在Excel中没有计算个人所得税的函数，此时可以使用自定义函数来计算，如下面的代码所示。#001PublicFunctionPITax(Income,OptionalThreshold)As

39、Single#002DimRateAsSingle#003DimDebitAsSingle#004DimTaxliabilityAsSingle#005IfIsMissing(Threshold)ThenThreshold=2000#006Taxliability=Income-Threshold#007SelectCaseTaxliability#008Case0To500#009Rate=0.05#010Debit=0#011Case500.01To2000#012Rate=0.1#013Debit=25#014Case2000.01To5000#015Rate=0.15#016Debit

40、=125#017Case5000.01To20000#018Rate=0.2#019Debit=375#020Case20000.01To40000#021Rate=0.25#022Debit=1375#023Case40000.01To60000#024Rate=0.3#025Debit=3375#026Case60000.01To80000#027Rate=0.35#028Debit=6375#029Case80000.01To10000#030Rate=0.4#031Debit=10375#032CaseElse#033Rate=0.45#034Debit=15375#035EndSel

41、ect#036IfTaxliability0Then#005IfNotExistSh(Sh)Then#006MsgBox对不起,&Sh&表不存在!#007Else#008Sheets(Sh).Select#009EndIf#010EndIf#011EndSub代码解析：NotSht过程使用自定义的ExistSh函数判断工作簿中是否存在指定名称的工作表，如果不存在则使用消息框进行提示，如REF_Ref231314742h图1661所示。图STYLEREF3s166SEQ图*ARABICs31查找指定工作表查找指定工作簿是否打开如果需要判断指定名称的工作簿是否已经打开，除了使用REF_Ref231

42、141736rh技巧43的方法外，还可以使用与REF_Ref231141764rh技巧166类似的自定义函数，如下面的代码所示。#001FunctionExistWorkbook(WbNameAsString)AsBoolean#002DimwbAsWorkbook#003OnErrorResumeNext#004Setwb=Workbooks(WbName)#005IfErr.Number=0ThenExistWorkbook=True#006Setwb=Nothing#007EndFunction代码解析：自定义ExistWorkbook函数判断指定名称的工作簿是否已经打开。第5行代码判断

43、前面的赋值语句是否存在错误。如果没有指定名称的工作簿，则第4行代码会产生错误，自定义ExistWorkbook函数返回False。下面使用自定义ExistWorkbook函数判断名称为“ExcelHome”的工作簿是否已经打开，如果没有打开则使用消息框进行提示，如REF_Ref231141813h图1671所示。#001SubNotWorkbook()#002IfNot(ExistWorkbook(ExcelHome)ThenMsgBox对不起,ExcelHome工作簿没有打开!#003EndSub图STYLEREF3s167SEQ图*ARABICs31消息框提示取得应用程序的安装路径使用自定

44、义函数取得应用程序的安装路径，如下面的代码所示。#001FunctionGetSetupPath(AppNameAsString)#002DimWSHAsObject#003SetWSH=CreateObject(Wscript.Shell)#004GetSetupPath=WSH.RegRead(HKEY_LOCAL_MACHINESoftware_#005&MicrosoftWindowsCurrentVersionAppPaths_#006&AppName&Path)#007SetWSH=Nothing#008EndFunction#009SubWinRARPath()#010MsgBo

45、xGetSetupPath(WinRAR.exe)#011EndSub代码解析：自定义GetSetupPath函数取得应用程序的安装路径，其中参数AppName代表指定的应用程序的名称。第3行代码使用CreateObject函数将Wscript.Shell对象的引用赋给变量WSH。CreateObject函数创建并返回一个对ActiveX对象的引用，语法如下：CreateObject(class,servername)参数class是必需的，Variant(String)，要创建的应用程序名称和类。参数servername是可选的，Variant(String)，要在其上创建对象的网络服务器名

46、称。如果servername是一个空字符串()，即使用本地机器。第4行代码取得AppName参数指定的应用程序在注册表中的路径。WinRARPath过程使用消息框显示由自定义的GetSetupPath函数取得的应用程序“WinRAR”的安装路径。运行WinRARPath过程结果如REF_Ref231141866h图1681所示。图STYLEREF3s168SEQ图*ARABICs31应用程序安装路径数组的使用代码运行时创建数组使用Array函数可以在代码运行时创建数组并把一系列数据保存在数组中，示例代码如下：#001OptionBase1#002Subarr()#003DimarrAsVari

47、ant#004DimiAsInteger#005arr=Array(王晓明,吴胜玉,周志国,曹武伟,张新发,卓雪梅,沈煜婷,丁林平)#006Fori=LBound(arr)ToUBound(arr)#007Cells(i,1)=arr(i)#008Next#009EndSub代码解析：Arr过程使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域。第1行代码使用OptionBase语句声明数组下标的缺省下界为1，数组下标的缺省下界默认为0。第5行代码使用Array函数创建数组用来保存数据。Array函数返回一个包含数组的Variant，语法如下：Array(arglist)

48、Arglist参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋值。如果不提供Arglist参数，则创建一个长度为0的数组。第6行代码使用LBound函数和UBound函数取得数组的最小和最大下标。LBound函数返回一个Long型数据，其值为指定数组维可用的最小下标，语法如下：LBound(arrayname,dimension)UBound函数返回一个Long型数据，其值为指定数组维可用的最大下标，语法如下：UBound(arrayname,dimension)参数arrayname是必需的，数组变量的名称。参数dimension是可选的，指定返回哪一维的下界，1

49、表示第一维，2表示第二维，如此类推。默认为1。UBound函数与LBound函数一起使用，可以用来确定数组的大小。第7行代码确定数组的大小后使用For.Next语句遍历数组元素并将数组元素依次写入到工作表的A列单元格中，如REF_Ref231490137h图1691所示。图STYLEREF3s169SEQ图*ARABICs31将数组元素写入工作表文本转换为数组在处理字符串时可以使用Split函数将字符串按指定的分隔符分开并以数组返回，代码如下：#001SubSplitarr()#002DimArrAsVariant#003Arr=Split(Sheet2.Cells(1,1),)#004She

50、et1.Cells(1,1).Resize(UBound(Arr)+1,1)=Application.Transpose(Arr)#005EndSub代码解析：Splitarr过程使用Split函数将工作表Sheet2中A1单元格的姓名分别写入到工作表Sheet1中的A列单元格。Split函数返回一个下标从零开始的一维数组，包含指定数目的子字符串，语法如下：Split(expression,delimiter,limit,compare)参数expression是必需的，包含子字符串和分隔符的字符串表达式。参数delimiter是必需的，用来标识子字符串边界的字符串字符。如果忽略，则使用空格字

51、符()作为分隔符。第4行代码，首先使用UBound函数取得返回数组的最大下标后调整单元格区域，因为数组下标的缺省下界默认为0，所以在使用Resize属性调整单元格区域时参数RowSize需要在返回数组的最大下标上加一。然后使用工作表Transpose函数将返回数组转置后写入到工作表调整后的单元格区域中。工作表Transpose函数返回转置单元格区域，即将一行单元格区域转置成一列单元格区域，反之亦然，语法如下：TRANSPOSE(array)参数array为需要进行转置的数组或工作表中的单元格区域。Splitarr过程将如REF_Ref231520697h图1692所示的工作表单元格中的字符串以

52、逗号分隔后依次写入到工作表的A列单元格中，如REF_Ref231520726h图1693所示。图STYLEREF3s169SEQ图*ARABICs32工作表单元格中的字符串图STYLEREF3s169SEQ图*ARABICs33文本转换为数组写入单元格使用动态数组去除重复值在技巧REF_Ref231550675rh169-2中使用数组函数将单元格中的文本进行分隔后写入到工作表Sheet1中的A列单元格，但是如果文本中含有大量的重复值，在写入时也会将重复值写入到工作表中，此时可以使用动态数组去除文本中的重复值，如下面的代码所示。#001SubSplitarr()#002DimSplarr()AsString#003DimArr()AsString#004DimTemp()AsString#005DimrAsInteger#006DimiAsInt