几种用VBA在单元格输入数据的方法

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