赋值给某个单元格VBA

nnsea

Option Explicit
Sub 第一个宏()
   Dim rng As Range       '声明一个Range变量，可以表示单元格
   Set rng = Worksheets("Sheet2").Range("A1")  '将工作表Sheet1的A1单元格对象赋值给rng
   rng.Value = "学习VBA就是这么简单"    '这时候rng就代表A1单元格
End Sub

nnsea

Option Explicit


Sub 第一个宏()
  Dim num(1 To 10) As String
  num(1) = "1号"
  num(2) = "2号"
  num(3) = "3号"
  Range("A1") = num(1)
  Range("A2") = num(2)
  Range("A3") = num(3)
End Sub