欢迎来到天天文库
浏览记录
ID:12097621
大小:45.50 KB
页数:7页
时间:2018-07-15
《特定字符拷贝excel2003 公式》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、特定字符拷贝()'我Q:710903007DimrngAsRange'定义变量rng为单元格对象把MG定义为区域对象PDZ=InputBox("请输入判断字符,区分大小写","判定字符")'通过Inputbox(对话框)给定变量PDZ的值,用于指定特定字符inputbox是一个函数InputBox(Prompt[,Title][,Default][,XPos,YPos][,Helpfile,Context])部分描述Prompt必需的。作为对话框消息出现的字符串表达式。Prompt的最大长度大约为1024个字符,由所用字符的宽度决定。如果Prompt的内容超过一行,则可以在每一行之间用回车符
2、(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10),即vbCrLf)将各行分隔开来。Title可选的。显示对话框标题栏中的字符串表达式。如果省略,则把应用程序名放入标题栏中。Default可选的。显示文本框中的字符串表达式,在用户输入前作为缺省值。如果省略,则文本框为空。XPos可选的。数值表达式,与YPos一起出现,指定对话框的左边与屏幕左边的水平距离。如果省略,则对话框会在水平方向居中。YPos可选的。数值表达式,与XPos一起出现,指定对话框的顶端与屏幕顶端的距离。如果省略,则对话框被放置在屏幕垂直方向距底端大约三分之一的位置。Helpf
3、ile可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了Helpfile,则也必须提供Context。Context可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了Context,则也必须提供Helpfile。num_row=[a65536].End(xlUp).Row返回A列中最后一个非空单元格所在的行数并将数值赋予变量num_row用于设定循环数num2_row=1'赋予变量num2_row值为1,用于指定sheet2的行数Setrng=Range("a1:a"&num_row)&是合并的意思设定变量rng的值(可以看成=A
4、列的数值_从A1到A列中最后一个非空单元格中的全部数值)Fori=1Tonum_row'设定循环数Ifrng(i)=PDZThen'当A列中的数值=你指定的字符时执行下方语句Range(i&":"&i).CopySheets(2).Range(num2_row&":"&num2_row)'将特定字符所在行的全部数据复制到表sheet2中_注:sheets(2)表示从Excel下方工作表标签最左侧开始数的第二个工作表num2_row=num2_row+1'变量num2_row的值=本身值+1EndIf'结束if语句Nexti'开始下一个循环EndSub定义和用法 range()函数创建并返回
5、一个包含指定范围的元素的数组。编辑本段Range集合用法 本部分将说明下列返回Range对象的属性和方法: Range属性 Cells属性 Range和Cells Offset属性 Union方法Range属性 可用Range(arg)(其中arg为区域名称)来返回代表单个单元格或单元格区域的Range对象。A1中的值赋给单元格A5。 Worksheets("Sheet1").Range("A5").Value=Worksheets("Sheet1").Range("A1").Value 下例设置单元格区域A1:H8中每个单元格的公式,用随机数填充该区域。在没有对象识别符(
6、句号左边的对象)的情况下,使用Range属性将返回活动表上的一个区域。如果活动表不是工作表,则该方法无效。在没有明确的对象识别符的情况下,使用Range属性之前,可用Activate方法来激活工作表。 Worksheets("Sheet1").Activate Range("A1:H8").Formula="=Rand()"'Rangeisontheactivesheet 下例清除区域Criteria中的内容。 Worksheets(1).Range("Criteria").ClearContents 如果用文本参数指定区域地址,必须以A1样式记号指定该地址(不能用R1C1样式记号
7、)。Cells属性 可用Cells(row,column)(其中row为行号,column为列标)返回单个单元格。下例将单元格A1赋值为24。 Worksheets(1).Cells(1,1).Value=24 下例设置单元格A2的公式。 ActiveSheet.Cells(2,1).Formula="=Sum(B1:B5)" 虽然也可用Range("A1")返回单元格A1,但有时用Cells属性更
此文档下载收益归作者所有