VBA编程:EXCEL中Range与Cells作为对象使用时的区别本例是魔乐移动精灵的手机通讯录导出备份文件,我们可借此文件在电脑上进行操作,然后再还原到手机,效率极高。这里我要达到以下目的:一、输入的是移动公司做的虚拟缩短号,我单位是69+手机号3位尾数;二、根据“表示为”将“姓”和“名”分开分别填到A和B列。图1是原始文件,图2是计算后的文件。通过VBA编程解决,程序如下:图1先在表1(sheet1)中加命令控件“计算短号”,方法见图2图2在设计模式下,双击“计算短号”命令控件,mandButton1_Click()Forn=(n,38).Value=""ThenEnd'("a"&n)=Left(("AL"&n),1)’取出“姓”(n,2).Value=Trim(mid((n,38).Value,2,10))’取出“名”("g"&n)="同事"("l"&n)="69"&Right(("j"&n),3)NextEndSub注意:表示单元格时,range是用字符表达的,如“A1”,“B3”等,引号要用半角或英文状态下。而cells是用数字表达的,如“A1”是1行1列cells(1,1),“B3”是3行2列cells(3,2)。(n,38).Value=""ThenEnd判断第N行,38列即AL列,是否为空,真就结束,假就继续,有这一句判断,Forn=2To300中的300可以设大一点没有关系。("a"&n)=Left(("AL"&n),1)(n,2).Value=Trim(mid((n,38).Value,2,10))语句都是截取字符串,分别用了range()和cells(),仔细体会其差别。
VBA编程EXCEL中Range与Cells作为对象使用时的区别 来自淘豆网www.taodocs.com转载请标明出处.