Public Sub Writes()

    1-- 2 方法，最简单在 "[  ]" 中输入单元格名称。

    1   [A1] = 100  '在 A1 单元格输入100。

    2   [A2:A4] = 10  '在 A2:A4 单元格输入10。

    3-- 4 方法，采用 Range(" ")， " " 中输入单元格名称。

    3   Range("B1") = 200  '在 B1 单元格输入200。

    4   Range("C1:C3") = 300  '在 C1:C3 单元格输入300。

    5-- 6 方法，采用 Cells(Row,Column)，Row是单元格行数，Column是单元格栏数。

    5   Cells(1, 4) = 400  '在 D1 单元格输入400。

    6    Range(Cells(1, 5), Cells(5, 5)) = 50  '在 E1:E 5单元格输入50。

End Sub

Public Sub Writes()

    1-- 2 方法，最简单在被读取的  "[  ]" 前加上被读取的工作表名称 Sheet4。

    1   [A1] = Sheet4.[A1]  '把Sheet4 A1 单元格的数据，读到 A1单元格。

    2   [A2:A4] = Sheet4.[B1]  ''把 Shee4 工作表单元格 B1 数据，读到 A2:A4 单元格。

    3-- 4 方法，在被读取的工作表 Range(" ")的 Range 前加上被读取的工作表名称Sheet4。

    3   Range("B1") = Sheet4.Range("B1")  ''把 Shee4工作表单元格 B1 数据，读到B1 单元格。

    4   Range("C1:C3") = Sheet4.Range("C1")  '把 Shee4 工作表单元格 C1 数据，读到 C1:C3 单元格。

    5-- 6 方法，在被读取的工作表 Cells(Row,Column)，Cells 前加上被读取工作表名称 Sheet4。

    5  Cells(1, 4) = Sheet4.Cells(1, 4)  '把 Shee4 工作表单元格 D1 数据，读到 D1 单元格。

    6   Range(Cells(1, 5), Cells(5, 5)) = Sheet4.Cells(1, 5)  '把 Shee4 工作表单元格 E1 数据，读到 E1:E 5单元格。

End Sub