特定字符拷贝excel2003 公式

《特定字符拷贝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属性更