1.使用Range属性,代码如下: Sub Rngselect() Sheet1.Range('A1:D8,C5:G11').Select End Sub 其中Rngselect是过程名,可以随意命名,中英文皆可,不过要注意让别人能读懂。 把上述过程复制,在excel里,ALT+F11,VBE编辑窗口里,插入-模块,粘贴。F5,执行这个过程,结果如图: 2.使用Cells属性,代码如下: Sub cell() Dim mcell As Integer For mcell = 1 To 10 Sheet2.Cells(mcell, 1).Value = mcell Next End Sub Cell过程使用了For...Next语句为工作簿里的第2张工作表中的A1:A10单元格区域填入了1-10的序号。 Cells属性指定单元格区域中的单元格,语法如下: Cells(行号,列号) 把上述过程复制,在excel里,ALT+F11,VBE编辑窗口里,插入-模块,粘贴。F5,执行这个过程,结果如图: 3.使用快捷记号,代码如下: Sub kuaijie() [a1:c6] = 8 [kuai] = 3 End Sub 第2行代码将活动工作表里的A1:C6单元格赋值为8 第3行代码将工作簿里已命名为“kuai”的单元格区域(通过公式-名称管理器去定义)赋值为3. 把上述过程复制,在excel里,ALT+F11,VBE编辑窗口里,插入-模块,粘贴。F5,执行这个过程,结果如图: -------------------------------------------------------------------------------------------- |
|
来自: fzchenwl > 《excelppt》