VBA函数大全自己的

VBA 中的常用函数介绍VBA（Visual Basic for Applications）是一种基于微软的Visual Basic编程语言，通常用于编写和自动化执行Microsoft Office应用程序中的宏。

VBA具有丰富的内置函数库，这些函数可以帮助开发人员简化代码并提高效率。

在本篇文章中，我们将介绍一些VBA中常用的函数，以帮助您更好地理解和应用VBA编程。

1. Len函数Len函数用于获取字符串的长度。

对于一个字符串变量或字符串常量，Len函数将返回该字符串中字符的数量。

例如，Len("hello")将返回数字5，因为字符串"hello"具有5个字符。

Len 函数的语法如下：Len(string)其中，string是要获取长度的字符串。

下面是一个使用Len函数的示例：Sub LenExample()Dim myString As StringmyString = "Hello, World!"MsgBox "The length of the string is: " & Len(myString)End Sub在上面的示例中，我们定义了一个字符串变量myString，并将其赋值为"Hello, World!"。

然后，我们使用Len函数获取该字符串的长度，并在消息框中显示结果。

2. Left和Right函数Left和Right函数用于提取字符串的左侧和右侧一部分。

Left函数将返回字符串的左侧指定字符数的子串，而Right函数将返回字符串的右侧指定字符数的子串。

这些函数的语法如下：Left(string, length)Right(string, length)其中，string是要提取子串的字符串，length是要返回的字符数。

下面是一个使用Left函数和Right函数的示例：Sub LeftRightExample()Dim myString As StringmyString = "Hello, World!"MsgBox "The left part of the string is: " & Left(myString, 5)MsgBox "The right part of the string is: " & Right(myString, 6) End Sub在上面的示例中，我们使用Left函数提取了字符串"Hello, World!"的左侧5个字符，并使用Right函数提取了字符串的右侧6个字符。

.、八、-刖言我们平时在工作表单元格的公式中常常使用函数，EGcel自带的常用的函数多达300多个, 功能强大，丰富多彩，但是在 VBA中不能直接应用，必须在函数名前面加上对象，比如：Applicatio n. WorksheetF un ctio n.Sum(arg1,arg2,arg3) 。

而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数, 以供大家学习参考。

第1.1例ASC函数一、题目：要求编写一段代码，运行后得到字符串”EGcel”的首字母和” e”的ASCII值。

二、代码：Sub 示例_1_01()DimmyNum1%,myNum2%myNum仁Asc("EGcel")'返回 69myNum2=Asc("e")' 返回 101[a1]="myNum 1=":[b1]=myNum1[a2]="myNum2=":[b2]=myNum2En dSub三、代码详解1、Sub示例_1_01():宏程序的开始语句。

2、DimmyNum1%,myNum2% :变量 myNum1 和 myNum2 声明为整型变量。

也可以写为DimmyNum1AsInteger 。

Integer变量存储为16位(2个字节)的数值形式，其范围为-32,768到32,767之间。

Integer的类型声明字符是百分比符号(％)。

3、myNum1=Asc("EGcel"):把 Asc 函数的值赋给变量 myNum1 。

Asc函数返回一个Integer，代表字符串中首字母的字符的 ASCII代码。

语法Asc(stri ng)必要的string (字符串)参数可以是任何有效的字符串表达式。

如果string中没有包含任何字符，则会产生运行时错误。

4、myNum2=Asc("e"):把Asc函数的值赋给变量myNum2。

前言我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个, 功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如: Application.WorksheetF unction .Sum(argl,arg2,arg3)o而能在VBA中直接应用的函数也有儿十个，下面将逐一详细介绍常用的40个VBA函数, 以供大家学习参考。

第1.1例ASC函数一、题目：要求编写一段代码，运行后得到字符串” Excel”的首字母和” e”的ASCII值。

二、代码：Sub 示例—1_01()Dim myNuml%, myNum2%myNuml 二Asc("Exce门’返回69myNum2 二Asc("e")'返回101[al]二"myNuml二n: [bl] = myNuml[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、S ub示例_1_010：宏程序的开始语句。

2、D im myNuml%, myNum2%：变量myNuml 和myNum2 声明为整型变量。

也可以写为Dim myNuml As Integer <> Integer变量存储为16位(2个字节)的数值形式，其范围为-32,768到32,767之间。

Integer的类型声明字符是白分比符号(％)。

3、m yNuml = Asc("Excel")：把Asc 函数的值赋给变量myNuml»Asc函数返回一个Integer,代表字符串中首字母的字符的ASCD代码。

语法Asc(string)必要的string (字符串)参数可以是任何有效的字符串表达式。

如果string中没有包含任何字符，则会产生运行时错误。

4、m yNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。

vba 自定义函数说明函数定义VBA定义的函数可以在工作表使用，如果是在加载插件中定义函数，本机所有打开工作簿都可以使用该函数，当然可以在过程sub中调用函数；VBA函数与sub过程不同的是，函数有返回内容；过程和函数都可以传入参数。

函数使用Function关键字定义，定义规则如下：Function 函数名称(形参及类型)函数主体函数名称= 函数返回End Function示例：'定义一个数值平方的函数，形参：a，形参a类型：long，函数返回：a ^ 2；函数名称：testFunction test(a as long)test = a ^ 2End Function'定义全局函数,使用public关键字，这个关键字跟变量定义是一致的。

后面跟的as long是返回类型Public Function test(a as long) as longtest = a ^ 2End Function传值和传引用函数或方法传值使用关键字ByVal，传引用使用关键字ByRefSub num_print()Dim i, num As Long ' 定义一个变量num = 0For i = 1 To 10s = add(num) ' 调用add函数sDebug.Print num ' 函数参数是传引用，会依次打印1,2,3,,,,10NextEnd SubFunction add(ByRef a As Variant)a = a + 1End Function如果上述函数参数为传值ByVal，则函数不影响方法num_print中变量num的改变，全打印0；函数返回对象函数也可以返回对象，返回对象要使用set关键字；示例：返回字典Function aa()Dim d As ObjectSet d = CreateObject("scripting.dictionary")today = Datethe_month_date = CDate(Year(Date) & "-" & Month(Date)& "-" & 20) '这个月的20号last_month_date =Application.WorksheetFunction.EDate(the_month_date, -1) '上个月的20号d("today") = todayd("the_month_date") = the_month_dated("last_month_date") = last_month_dated("the_month") = Month(last_month_date) '这个月d("last_month") =Month(Date) '上个月Set aa = d '返回对象使用set关键字End Function'函数调用sub test1()dim d1 as objectset d1 = aa()debug.print d1("today") '打印字典键today对应的值end sub使用默认参数函数传入参数格式：形参 as 参数类型 = 参数默认值示例：正则提取函数Function regexp(rg As Variant, str As String, Optional mat As Byte = 0, Optional group As Variant = Empty)'Optional表示参数不是必需的关键字。

VB常用函数表VB常用函数表(2009-03-20 00:50:42)转载标签：asp常用函数分类：技术文章杂谈ASP纯ASPVBscript常用函数：1.数值型函数：abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值直接表示：&Hxx 最大8位oct(num): 返回八进制值直接表示：&Oxx 最大8位sqr(num): 返回平方根 num>0int(num): 取整 int(99.8)=99; int(-99.2)=100fix(num): 取整 fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2log(num): 取以e为底的对数 num>0exp(n): 取e的n次幂通常用 num^nsin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成大写trim(str)：去除字符串两端空格Ltrim(str)：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符 1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str)：构造由n个str第一个字符组成的字符串StrReverse(str)：反转字符串split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cint(str)：转换正数 True -1；False 0；日期距离1899/12/31天数；时间上午段 0；下午段 1；Cstr(str)：日期输出格式 yyyy/mm/dd；时间输出格式 Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零 True；反之 FalseCdate(str)：转换日期格式 0：#Am 12:00:00#；正数距离1899/12/31天数的日期；浮点数日期＋小数时间Cbyte(num)：num<255 转换为字节Csng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Ccur(str)：转换为现金格式4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值 Datetime类型timer：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值,日期)：推算相邻日期DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一Datepart(间隔单位,日期)：计算日期的间隔单位值Dateserial(date)：输出日期值（按序列计算）Timeserial(time)：输出时间值（按序列计算）DateValue(datetime)：取出字符串中日期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5.其它函数：Array(unit,..)：动态生成数组Asc(str)：输出字符串第一个字符的ASCII码Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10)Filter(数组名称,关键字符串,[,包含][,比较方法])：将字符串数组中含有关键字符串的元素存成新的数组（默认） [包含]为false则取不包含的元素Join(ArrayName)：将数组中元素连成字符串Ubound(ArrayName[,维数])：取得数组相应维数的上界Lbound(ArrayName[,维数])：取得数组相应维数的下界一般为0Randmize n：启动随机数种子Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg[1],..)子程序体函数体Exit Sub 中途跳出 Exit Function 中途跳出End Sub StrFunName＝Value 返回值End Function[call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函数子程序和自定义函数可以递归调用；ASP六大对象常用语句示范：Response：Response.write StrVar/"String"：向网页写出参数值或字符串等同于在Html标记中嵌入<%=StrVar/"String"%>Response.End：停止页面编译，并将已经编译内容输出到浏览器Response.Buffer=True|False：页面编译时是否使用缓存的设置，一般在页面头部设置Response.Flush：强制输出页面已编译部分内容Response.Clear：将缓冲区内的数据清除Response.Redirect URL：停止页面编译或输出，转载指定所需页面Response.IsClientConnected：返回True|False，检测用户是否还处于连接状态Response.Charset(CharsetName)：设置页面编码类型，即<meta http-equiv="Content-Type" content="text/html; charset=gb2312">Response.ContentType [= ContentType ]：设置页面文件类型，同上Response.Expires [= number]：设置页面失效时间，单位分钟Response.ExpiresAbsolute [= [date] [time]]：设置页面失效的绝对时间Response.Status = StatusDescription：设置页面状态描述Request：Request("PassStrName")：读取网页传递值，包括表单及以？PassStrName＝value&PassStrName_n＝value_n形式Request[.collection|property|method](variable)Request.querystring("PassStrName")：读取Get方法传递的表单值和？PassStrName＝valueRequest.QueryString(Varible)[(Index).Count]Request.form("PassStrName")：读取Post方法传递的纯表单域的值Request.Form(Parameter)[(Index).Count]Request.ServerVaribles(Server Environment Variable)：读取客户端系统环境变量，详见参考Request.BinaryRead(Count)：读取指定字节数的传送值Request.TotalBytes：查询体的长度，以字节为单位，只读注：同名表单如：CheckBox如有多项值，传递形式如右，StrName=value1,value2,...需要用Split函数分割各项值Multiple的Select表单与CheckBox类似，TextArea的值可包含换行字符，用Replace转为<br>，以满足格式需要Session：（用户全局变量）Session("SesName")＝value：存储Session变量值，也可读取该值Session("SesName")＝Empty：判断Session值是否存在的两种方法IsEmpty(Session("SesName"))=True|False：判断Session值是否存在的两种方法Session.TimeOut=num：设置Session变量的存在时效，单位分钟Session.Abandon：清除所有Session变量值Session.SessionID：Session变量的ID序列号，只读Application：（应用程序全局变量）Application("AppName")＝value：存储Application变量值，也可读取该值Application("AppName")＝Empty：判断Application值是否存在的两种方法IsEmpty(Application("AppName"))=True|False：判断Application值是否存在的两种方法Application.Lock：Application变量值锁定，防止同时更改变量值Application.UnLock：Application变量值解锁，允许更改变量值注：Session与Application变量都可以用来存储数组和系统对象，引用方法是变量名相当于数组名而已，但不能直接改变其值，需要借助临时数组修改值后，再赋给Session与Application变量Global.asa文件的结构：<% @language="VBscript"%><% Sub Application_OnStart ...End SubSub Application_OnEnd ... End SubSub Session_OnStart ...End SubSub Session_OnEnd ... End Sub%>Server:Server.MapPath("FileUrl")：映射文件名的服务器站点绝对地址，Path=Server.MapPath(./)可以得到虚拟目录根路径Server.HtmlEncode("string")：转换为可以直接显示带Html格式的字符串，如：<,>等Server.URLEncode( "string")：转换为浏览器地址编码set Var＝Server.CreatObject("ObjName")：创建对象变量Server.ScriptTimeout = NumSeconds：ASP程序页面执行时限，以秒为单位Cookies: 存储在用户本机的临时变量，每个Cookie的最大字节4KB，最多可以有300个Cookie 1.2MBResponse.cookies("StrCookieName")＝value：存储Cookie变量值，也可读取该值Response.cookies("StrCookieName")＝""：判断是否为空Response.cookies("StrCookieName").Expires=Date：变量有效期，以天为单位，小于当前时间立即失效Response.Cookies(Cookie[(key).Attribute])：标准语法ObjectContext 控制ASP的事务处理ObjectContext.OnTransactionAbort：由放弃的事务处理事件激发，在脚本完成处理后发生ObjectContext.OnTransactionCommit：由成功的事务处理事件激发，在脚本完成处理后发生ObjectContext.SetAbort：显式的放弃一次事务处理ObjectContext.SetComplete：覆盖前面任何调用ObjectContext.SetAbort方法的调用Msgbox "string"/StrName：VBscript提示框表单的Onsubmit事件：在同一页面写入 FunctionFormName_onsubmit()..FormName_onsubmit＝True/False..end Function，页面会在提交前先执行语句，并根据返回值判断是否完成提交任务。

VBA函数大全(自己整理的) Abs函数返回一个与参数类型相同的绝对值。

Array函数返回一个包含数组的Variant。

Asc函数返回一个整数，代表字符串中首字母的字符代码。

Atn函数返回一个双精度浮点数，指定一个数的反正切值。

CallByName函数执行一个对象的方法，或者设置或返回一个对象的属性。

Choose函数从参数列表中选择并返回一个值。

Chr函数返回一个字符串，其中包含与指定的字符代码相关的字符。

Cos函数返回一个双精度浮点数，指定一个角的余弦值。

___函数创建并返回一个对ActiveX对象的引用。

CurDir函数返回一个代表当前路径的字符串。

CVErr函数返回一个包含指定错误号的Error子类型的Variant。

Date函数返回一个包含系统日期的Variant(Date)。

DateAdd函数返回一个包含指定时间间隔后的日期的Variant(Date)。

DateDiff函数返回一个Variant(Long)的值，表示两个指定日期间的时间间隔数目。

DatePart函数返回一个包含已知日期的指定时间部分的Variant(Integer)。

DateSerial函数返回一个包含指定的年、月、日的Variant(Date)。

DateValue函数返回一个Variant(Date)。

Day函数返回一个表示一个月中某一日的1到31之间的整数。

DDB函数返回一个双精度浮点数，指定一笔资产在一特定期间内的折旧。

Dir函数返回一个符合指定模式、文件属性或磁盘卷标的文件名、目录名或文件夹名称的字符串。

DoEvents函数转让控制权，以便让操作系统处理其他事件。

Environ函数返回一个与操作系统环境变量相关的字符串。

在Macintosh中不可用。

EOF函数返回一个包含布尔值True的整数，表明已经到达为Random或顺序Input打开的文件的结尾。

Error函数返回对应于已知错误号的错误信息。

Exp函数返回一个双精度浮点数，指定e（自然对数的底）的某次方。

VBAExcel常用自定义函数1. 将互换 Excel 列号（数字/字母）Public Function excelColumn_numLetter_interchange(numOrLetter) As String Dim i, j, idx As IntegerDim letterArrayletterArray = Array('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z')If IsNumeric(numOrLetter) ThenIf numOrLetter > 702 ThenMsgBox '只允许输入小于“703”的数字。

'Exit FunctionEnd IfIf numOrLetter > 26 Thenidx = 26For i = 0 To 25For j = 0 To 25idx = idx + 1If idx = numOrLetter ThenexcelColumn_numLetter_interchange = letterArray(i) & letterArray(j)Exit ForEnd IfNext jNext iElseexcelColumn_numLetter_interchange = letterArray(numOrLetter - 1)End IfElsenumOrLetter = UCase(numOrLetter) '转换为大写If Len(numOrLetter) > 1 And Len(numOrLetter) < 3 Thenidx = 26For i = 0 To 25For j = 0 To 25idx = idx + 1If letterArray(i) & letterArray(j) = numOrLetter ThenexcelColumn_numLetter_interchange = idxExit ForEnd IfNext jNext iElseIf Len(numOrLetter) = 1 ThenFor i = 0 To 25If letterArray(i) = numOrLetter ThenexcelColumn_numLetter_interchange = i + 1Exit ForEnd IfNext iElseMsgBox '最多只允许输入2个“字母”。

VBA常用函数计算, 左右, 字符串1,vba字符串函数列表：Trim(string) 去掉string左右两端空白Ltrim(string) 去掉string左端空白Rtrim(string) 去掉string右端空白Len(string) 计算string长度Left(string, x) 取string左段x个字符组成的字符串Right(string, x) 取string右段x个字符组成的字符串Mid(string, start,x) 取string从start位开始的x个字符组成的字符串Ucase(string) 转换为大写Lcase(string) 转换为小写Space(x) 返回x个空白的字符串Asc(string) 返回一个integer，代表字符串中首字母的字符代码Chr(charcode) 返回string,其中包含有与指定的字符代码相关的字符2，VBA转换函数列表：CBool(expression) 转换为Boolean型CByte(expression) 转换为Byte型CCur(expression) 转换为Currency型CDate(expression) 转换为Date型CDbl(expression) 转换为Double型CDec(expression) 转换为Decemal型CInt(expression) 转换为Integer型CLng(expression) 转换为Long型CSng(expression) 转换为Single型CStr(expression) 转换为String型CVar(expression) 转换为Variant型Val(string) 转换为数据型Str(number) 转换为String3，VBA时间函数：Now 返回一个Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。

Date 返回包含系统日期的Variant (Date)。

前言我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。

而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。

第1.1例 ASC函数一、题目： 要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。

二、代码：Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01()：宏程序的开始语句。

2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。

也可以写为 Dim myNum1 As Integer 。

Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。

Integer 的类型声明字符是百分比符号(%)。

3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。

Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。

语法Asc(string)必要的 string（字符串）参数可以是任何有效的字符串表达式。

如果 string 中没有包含任何字符，则会产生运行时错误。

4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。

Vba精选函数一、VBA函数精选之一(ASC函数) (2)二、VBA函数精选之二(Chr函数) (4)三、VBA函数精选之三(Choose函数) (5)四、VBA函数精选之四(Cos函数) (6)五、VBA函数精选之五(Date函数) (8)六、VBA函数精选之六(DateAdd函数) (9)七、VBA函数精选之七(DateDiff函数) (10)八、VBA函数精选之八(DatePart函数) (12)九、VBA函数精选之九(DateSerial 函数) (14)十、VBA函数精选之十(DateValue 函数) (15)十一、VBA函数精选之十一(Day函数) (16)十二、VBA函数精选之十二（Dir函数） (17)十三、VBA函数精选之十三（Fix 函数） (19)十四、VBA函数精选之十四（Format 函数） (20)十五、VBA函数精选之十五（Hour 函数） (22)十六、VBA函数精选之十六（IIF 函数） (23)十七、VBA函数精选之十七（InputBox） (24)十八、VBA函数精选之十八（Instr 函数） (27)十九、VBA函数精选之十九（InstrRev） (30)二十、VBA函数精选之二十（IsArray） (32)二十一、VBA函数精选之IsNumeric 函数 (34)二十二、VBA函数精选之（Join 函数） (35)二十三、VBA函数精选之（LBound 函数） (36)二十四、VBA函数精选之LCase和UCase (38)二十五、VBA函数精选之（Left 和Right） (40)二十六、VBA函数精选之（Len 函数） (42)二十七、VBA函数精选之（LTrim、RTrim与Trim 函数） (44)二十八、VBA函数精选之（Mid 函数） (46)二十九、VBA函数精选之（Month 和MonthName 函数） (48)三十、VBA函数精选之（MsgBox 函数） (49)三十一、VBA函数精选之（Now 函数） (55)三十二、VBA函数精选之（RGB 函数） (56)三十三、VBA函数精选之（Rnd 函数） (57)三十四、VBA函数精选之（Round 函数） (59)三十五、VBA函数精选之（Split 函数） (61)三十六、VBA函数精选之（Sqr 函数） (63)三十七、VBA函数精选之Str 和CStr (65)三十八、VBA函数精选之（Time 函数） (68)三十九、VBA函数精选之（TimeSerial 和TimeValue 函数） (69)四十、VBA函数精选之（Timer 函数） (72)选择性粘贴的VBA实现方法(ZT） (73)Excel VBA中ByVal和ByRef有什么区别？ (76)一、VBA函数精选之一(ASC函数)我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩。