018、单元格操作

1、将数据写入Excel表格中

语法：Sheets(工作表名).Cells(行,列).Value = 值

注：Sheets（工作表名称）这部分可省略，省略后，命令在当前工作表中执行

实例：将工作表1第1行，工作表2第1列，填充指定数字

Sub SetUpTable()

    For TheYear = 1 To 6

      '  在第1个工作表，第1行填充数字，第2个单元格开始

        Sheets(1).Cells(1, TheYear 1).Value = 1990 TheYear

      '  在第2个工作表，第1列填充数字，第2个单元格开始

        Sheets(2).Cells(TheYear 1, 1).Value = TheYear

    Next TheYear    '  TheYear 可省略

End Sub

运行结果：

2、将单元格区域赋值给一个二维数组

语法：数组名 = Sheets(工作表名).Range(Cells(x1,y1),Cells(x2,y2))

注：Sheets（工作表名称）这部分可省略，省略后，命令在当前工作表中执行。(x1，y1)，(x2，y2) 分别为起止坐标（如下图所示）。

示例：将单元格（1，2）到（3，4）的范围内的数据赋值给一个数组

NewArray = Range(cell(1, 2), Cells(3, 4))

（本节完）

原创内容，侵权请联系删除