【答案】：AA．【解析】本题考查VBA语句书写的知识。在VBA中每条语句写在的一行上，若将多条语句写在一行中，需要使用“：”将其分隔开来。

FunctionSplitN(cellAsRange)Setcell=cell.Range("A1")Fori=1ToLen(cell)SplitN=SplitN&Mid(cell,i,1)&","NextiSplitN=Left(SplitN,Len(SplitN)-1)EndFunction测试如图：

试了一下，没有分隔符，会返回原来的字符串：a="abc|de|fgh"b=Split(a,"|")c=Split(a,",")b会把a拆成三个:b(0)="abc"，b(1)="de"，b(2)="fgh"c的值会等于a:c(0)="abc|de|fg...

这函数只能对一个分隔符有效，可先用替换函数把所有需要的分隔符变成一个后再行处理。

1"Split(t,"。")(0)="杨蓉"Split(t,"。")(1)="1888888"Split(t,"。")(3)="北京大学"Split(t,"。")(4)="文学系"Split(t,"。")(

1、首先打开officeexcel软件，接着打开VBA编辑界面。2、然后在单元格区域当中输入一些内容。3、接着在VBA编辑器中插入模块。4、在模块当中输入如下代码进行分割取线，然后运行。5、最后在单元格B2中输入公式“=Division($A1...

Ifa=1Thenb=2:c=3:d=4:e=5这个是换行符号，冒号后虽然还在同一行上，但vb执行时会认为是下一行

lineinput可以实现逐行读取然后splite函数可以以“=”为分隔符，将每行读取的数据存为数组然后再对listbox使用添加方法就可以实现你要的结果了

这句少了一个空格：FunctionSumByColor(Ref_colorAsRange,Sum_rangeAsRange)这里也少了一个空格：ForEachrCellInSum_range

将那个引号改成CHAR(34)代码类似于：lStart=InStr(1,StrHTML,"