VBA操作excel单元格.doc

VBA操作excel单元格 本系统将介绍一下在vba中操作单元格的常用代码。 1 选取 ? 选取单元格只需要用.select即可，如Range(a1).select ? 另外还可以用selection表示已选取的单元格区域 2 获取单元格内容 ?获取单元格内容直接用=Range(单元格地址)，就可以取得单元格的内容 ?如果要取得单元格的显示内容（有时设置了自定义格式，显示和实际的内容并不一定一样），可以用Range(单元格地址).Text来完成 ?如果把一个单元格区域的值交给一个变量，则该变量会自动成为VBA二维数组，如 ?arr=Range(a1:b10) 合并单元格 合并单元格只需要用Range(单元格地址).Merge 方式，就可以合并单元格了。如 Range(a1:b1).Merge 合并a1:b1区域 如果要解除合并，则可以用Range(a1:b1).UnMerge 4 单元格查找 ?单元格的查找，可以调用excel工作表函数如 application.match（），也可以用VBA 中的find方法进行查找 Find 方法应用于?Range?对象的 Find 方法。在区域中查找特定信息，并返回?Range?对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回?Nothing。本方法不影响选定区域或活动单元格。有关在 Visual Basic 中使用?Find?工作表函数的详细信息，请参阅F1帮助中在 Visual Basic 中使用工作表函数。 expression.Find(What,?After,?LookIn,?LookAt,?SearchOrder,?SearchDirection,?MatchCase,?MatchByte,?SerchFormat) expression? ?? ?必需。该表达式返回一个?Range?对象。What? ?? ?Variant?类型，必需。要有哪些信誉好的足球投注网站的数据。可为字符串或任意 Microsoft Excel 数据类型。After? ?? ?Variant?类型，可选。表示有哪些信誉好的足球投注网站过程将从其之后开始进行的单元格。此单元格对应于从用户界面有哪些信誉好的足球投注网站时的活动单元格位置。值得注意的是，After?必须是区域中的单个单元格。请记住有哪些信誉好的足球投注网站是从该单元格之后? ?开始的；直到本方法绕回到指定的单元格时，才对其进行有哪些信誉好的足球投注网站。如果未指定本参数，有哪些信誉好的足球投注网站将从区域的左上角单元格之后开始。LookIn? ?? ?Variant?类型，可选。信息类型。LookAt? ?? ?Variant?类型，可选。可为以下?XlLookAt?常量之一：xlWhole?或?xlPart。SearchOrder? ?? ?Variant?类型，可选。可为以下?XlSearchOrder?常量之一：xlByRows?或?xlByColumns。SearchDirection? ?? ?XlSearchDirection?类型，可选。有哪些信誉好的足球投注网站的方向。XlSearchDirection 可为以下 XlSearchDirection 常量之一。xlNext?默认值xlPreviousMatchCase? ?? ?Variant?类型，可选。若为?True，则进行区分大小写的查找。默认值为?False。MatchByte? ?? ?Variant?类型，可选。仅在选择或安装了双字节语言支持时使用。若为?True，则双字节字符仅匹配双字节字符。若为?False，则双字节字符可匹配其等价的单字节字符。SearchFormat? ?? ?Variant?类型，可选。有哪些信誉好的足球投注网站的格式。说明每次使用本方法后，参数?LookIn、LookAt、SearchOrder?和?MatchByte?的设置将保存。如果下次调用本方法时不指定这些参数的值，就使用保存的值。设置这些参数将更改“查找和替换”对话框中的设置，如果您忽略参数，更改“查找和替换”对话框中的设置将更改使用的保存值。若要避免这种问题的出现，每次使用该方法时请明确设置这些参数。可以使用?FindNext和?FindPrevious方法重复有哪些信誉好的足球投注网站。当有哪些信誉好的足球投注网站到指定的有哪些信誉好的足球投注网站区域的末尾时，本方法将绕回到区域的开始继续有哪些信誉好的足球投注网站。发生绕转后，若要停止有哪些信誉好的足球投注网站，请保存第一个找到的单元格地址，然后依据该保存地址测试每个后续查找到的单元格地址。若要进行更为复杂的模式匹配查找，请用?For Each...Next?语句和?Like?运算符。例如，下列代码在单元格区域 A1:C5 中有哪些信誉好的足球投注网站字体名称以“Cour”开始的单元格。当 Microsoft Excel 找到匹配单元格以后，就将其字体改为“Times New Roman”。For Each c In [A1:C5]? ??? ?If c.F