如何设置macros的结果到excel列？ 对于macros而言，这是一个新的基础。 请解释一下

“需要在excel”Sheet1“的A列中设置员工（0），员工（1）……，员工（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