excel - 如何将宏结果设置到excel列中？我是 Macro 的新手，非常基础。请解释一下

Question

'需要在excel“Sheet1”的A列中设置employee(0),employee(1)......,employee(25)的值。

Sub testingarray()
For n = 0 To n = 25
employee(n) = Chr(n + 65)
Next n
For n = 0 To n = 25
MsgBox employee(n) 
Next n
End Sub

'Tried to use this:** Please say if am wrong
Public Sub putvalue()
Range("A1").Value = employee(0)
'Sheets("Sheet1").Cells(1, 1).Value = employee(n)
n = n + 1
End Sub

Answer 1

您可以使用类似的循环

Public Sub putvalue()
dim n as long

For n = 0 To n = 25
employee(n) = Chr(n + 65)
Next n

for n=0 to 25
cells(n+1,1).Value = employee(n)
next n

End Sub

您也可以完全不使用数组：

Public Sub putvalue()
dim n as long

for n=0 to 25
cells(n+1,1).Value = Chr(n + 65)
next n

End Sub

甚至更快

Public Sub putvalue()
range("A1:A26").formular1c1= "=char(row()+64)"
range("A1:A26").value=range("A1:A26").value

End Sub