Question

excel vba为单元格赋值,如何给A1:A3同时赋值,分别为1,2,3呢?

Answer 1

Sub BB()
For i = 1 To 3
Sheet1.Range("A" & i) = i
Next
End Sub

或者

Sub CC()
Sheet1.Range("A1") = 1
Sheet1.Range("A2") = 2
Sheet1.Range("A3") = 3
End Sub

或者

Sub CC()
Sheet1.Cells(i,1) = 1
Sheet1.Cells(i,2) = 2
Sheet1.Cells(i,3) = 3
End Sub

楼上的，也可以。但是要办“（）” 改为 “()”

追问

谢谢,其实我想要的是Sheet4.Range("A1:A3") = WorksheetFunction.Transpose(Array(1, 2, 3))

Answer 2

Range("A1:A3") = Application.Transpose(Array(1,2,3))

Answer 3

Sub aa()
For i = 1 To 3
Sheet1.Cells(1, i) = i
Next
End Sub

Answer 4

range("A1:A3").formular1c1="=ROW()"